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tt console (IDENT = ‘v04-000') = 


Sss 


PWN OOODNOAOUES WN — O OODNOAUE WN OC OONOAUE WN "OO OONOUE WN 


oo 


See eR RARE AREER A EE AEA EAA EA EEE AAT AA TERA AAA AAAAAAAEAAAAAAR AAA 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
't ONLY eet i THE TERMS OF SUCH bi cNee AND WITH TH 


® 

® 

® 

* 

® 

® 

® 

® 

i 0 , 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

i CORPORATION. : 
® 

tr 

® 

® 

* 

th 


'® DIGITAL ASSUMES NO RESPONS ¥ ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
it 
i eeeeeeeeeeeeeeeeeeeeee eee eeeeeeeeee eee eee eee eeeeteeeeeteeeneeeneteeeeeeene 
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| 
| 
| 
| 
| 
| 
FACILITY: DECnet V2.0 event logger 
| 
! ABSTRACT: 
This module contains all console display formatting routines 
for the event receiver. | 
| 


i ENVIRONMENT: 


WAIN.A.AA ANNA POPOPOPUNIPUNINIDYD 2 2 OOO PM OOOOOO 


VAX/VMS operating system. unprivileged user mode, 


ooo DOOCOCOCOOSOOOSOOOSOOSOSOSOSOOSOOCOOSSOOOSOSOSOOOOOOOOSOOOOo Oooo 
Ss sss ee ee oe ee ew ww lololololololololololelelololololelololelqlqia) 


NAO EWN MO ODNOAUE WN OO ODNOUE WN OO ONAUE WN SHO OONOUE WN S(OOONOAUE WN 
ee ee ee ee ee ee ee ee ee ed ed ed ad BD 


PAA BB BEE EB EAMG POP NPUNIPONIPYDYD 2 2 OO Oo se 


' 

i 
3 i 
} AUTHOR: Tim Halvorsen, June 1980 
4 i Modified by: 

04 } 

04 : v03-019 MKP0001 Kathy Perko 12-June-1984 

045 : Add Ethernet address to Network Management events. And 

be$ } increase size of OPCOM message buffers. 

048 1: v03-018 PRB0327 Paul Beck S-Apr-1984 22:14 | 

Dep No longer suppress display of area |. 

051 1: vO17 —s- TMHO017 Tim Halvorsen _ 20-Sep-1983 | 
4 : Add support for DECnet/PLUTO events (simply avoid 
005 : printing “Parameter #n ="' for these events). 
oped ix printing area numbers for area #1. | 
0036 i v016 TMHOO16 _ Tim Halvorsen 26-Apr-1983 
005 : Add ‘‘verification password required from PH3 node’’ and 
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TMHO004 
Use SHRLIB$ rather than LIBS for NMALIBRY.L32. 


v003 TMHOO03 Tim Halvorsen 05-Jan-1981 
Fix decoding of Line service status and display 
error message associated with status. 


vo02 TMHO002 Tim Halvorsen 19-Nov-1980 
Make formatting routines callable with an action 
routine to actually perform the output. This allows 
the monitor sink output routine to use the formatting 
routines as well as the console sink. 


; 28 28 } “dropped by adjacent node’’ reasons. 

: 60 01 vO1S —- TMHO015 Tim Halvorsen 08-Apr-1983 

; 6) 061 1! Make ECOs approved during the March 1983 DRG meetings. 

rn & p06 gg Add support for DECnet/SNA Gateway events (simply avoid 

; § 065 1! heehee ‘Parameter #n ="' for these events). 

; ee Bore ! uppress printing area numbers for area #1. 

: 66 0066 1 vO14 —- TMHOO14 Tim Halvorsen 28-Nov-1982 

; 67 0067 1! Add extra blank Line after each formatted event, 

: eB 493 : to help make each one more readable. 
; 70 $096 1 i vO13 = TMHO013 Tim Halvorsen 16-Nov-1982 | 
eee 0071 1! Display area addresses correctly. 
: 7 borg 1! Add formatting for new NODE and DTE event parameters 

: 7 075 1! for event class 0. 
s 6 0074 1! 
ve 0075 1! v012 TMHOO012 Tim Halvorsen 08-Nov-1982 
: 6 B078 : } Fix display of DTE old/new state. 

: «78 0078 1! vO11 —- TMHOO11 Tim Halvorsen 26-Sep-1982 
3; 0079 1! Add X.25 counters and VMS-specific events. 
: 80 0080 1! Add ‘‘module’’ to the List of entities which 
3 3 aed } are identified before the actual parameters. 
: 83 0083 1: vO10 —- TMHO010 Tim Halvorsen 29-Jul-1982 | 
; Se pope : } Add Phase IV event parameters. 

; 86 0086 1 | voo9 —- TMHOOC9 Tim Halvorsen 20-Jun-1982 

3 44 aie : Update List of Line and circuit counters. 

3 ' 
; «89 0089 1! v008 TMHOO08 Tim Halvorsen 28-Dec-1981 

; + Bone : Add PCL-11B and UNA counters. 

: 92 0092 1: vO07 ~—« TMHO007 Tim Halvorsen 19-Aug-1981 | 
3 7 ood : Change text of CRC remote node parameter. 

; 0095 1 v006 — TMHO006 Tim Halvorsen 05-Aug-1981 

g B28 ' Add DAP CRC event formatting | 
: 0098 1: vOOS —_ TMHOO0S Tim Halvorsen 08-Jul-1981 
; 0099 1! Add PCL11-B Line counters, and new 2.2 events and parameters. 
; 0100 1! Increase maximum size of output strings sent to OPCOM (monitor) 
: ! to 512, as a result of enhancements made to OPCOM and S$BRDCST. 
: 1} v004 Tim Halvorsen 07-Jul-1981 

1 i 

; 1! 

3 1! 

g 1! 

3 1! 

s 1! 

5 1! 

; 4 

Z 1! 

: 1! 


Re 2600 
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. a 115 1! 

3 4) 1 1! v001 TMHO001 Tim Halvorsen 17-Nov-1980 

s 41 1 1! Remove noise words in formatted event output to 

. 3 1 1! reduce overall size of the output message so that 
e ay 1 1! it won't be truncated by OPCOM. 
3; 7 1 1! prite the formatted output to SYSSOUTPUT if we are 

3 1 1! logging received events. 

. % § 1 ¢ 1 !e< 

ae 1 1 

: 126 1244 1! 

; : 5 3 5 : } Include files 

5 139 61 § 1 

; : : 4 S : LIBRARY "SYSS$LIBRARY:STARLET'; ' VAX/VMS common definitions 

; 1$6 3 : : LIBRARY ‘SHRLIBS$:NMALIBRY'; ! Get counter type definitions 

: 132 0132 1 LIBRARY ‘LIBS:EVCDEF'; ! Event data definitions 

; 133 0133 «#1 

3; (134 0134 1 


REQUIRE ‘LIBS:EVLDEF'; ! Facility definitions 
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Table of contents 

FORWARD ROUTINE 
format_event: NOVALUE, Format an event record 
append_strings: NOVALUE, Append a string to another string 


format_parameter: NOVALUE, 
unknown_parameter: NOVALUE, 
unknown_param_data: NOVALUE, 
format_counter: NOVALUE, 
format_nodeadr; 


Format a NICE parameter 
Format an unknown parameter 
Format unknown parameter data 
Format a NICE counter 

Format a area/node address 
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' 
Define macro for message reporting 


CRO 
msg(ident) = 
GIN 


ZIF NOT XDECLARED(%NAME('evL$_",ident)) 
THEN EXTERNAL LITERAL SNAME('evL$_', ident); %FI 
INANE (“evL$_*, ident) 


MEWN $9 OONOVL EW" OOONOUL WW 
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Define a macro for constructing output strings 
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MACRO 


pee ae s 
eopend s eanerc este UPLIT BYTE(ZA 
ZIF ZLENGTH GTR 1 XTHEN ,ZREMAINI 
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SCIC 
NG ZFI)2; 
' 

Literals 


LITERAL 
true = 1 
false = 6, 
max_output = 512; ! Maximum Length of output string 
' 
; External storage 


0909 09 08 SIN NI SIN NSN NNO Oo 


EXTERNAL 

evl$gl_logmask: S$BBLOCK; ! Internal logging mask 
' 

External routines 


EXTERNAL ROUTINE 
evl$unjulian, ' Convert julian half-day time 
wkq$add_work_item; ! Add work to work queue 
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GLOBAL ROUTINE format_event (event, event_length, 
output_routine, output_parm): NOVALUE = 


' 
Output an event record to the console sink. 


Inputs: 


i 
i 
i 
i 
: event = Address of event record 

: event_length = Length of event record 

; output_routine = Address of routine to call for each formatted Line 
output _parm = Optional parameter to be sent to output routine 

' 

i 

i 


Outputs: 
None 
BEGIN 
MACRO 
new_line = 
BEGIN 
4. Suteys Poyttanl’ .Sutpet pera, desc, .short_form); ! Call output action routine 
pee 0] = 0; ! Reset descriptor length 
MAP 
event: REF S$BBLOCK; ! Address of event record 
LOCAL 
ptr: REF $BBLOCK, ! Address of event data parameter 
days, seconds, msecs, : For conversion of julian time . 
comma_needed: BYTE, ' Boolean; true if comma needed on Line 
time: VECTOR (2), ' Converted 64-bit system time 
geac!-"°""* vectoR (2 i bezdrtptor ef output surfer” 
: . : utput bu 
buffer: VECTOR Cmax_output,BYTE]; ! Output buffer (extra for counters) 
Gove £03 = ps ae ! Setup descriptor of buffer 
= buffer; 
short_form = -1; ! Indicate no short form yet 


append("DECnet event !UL.!UL", .event Cevt$v_class], .event Cevt$v_type]); 


pecan ptr FROM known_events BY 6 ! Scan known event table 


BEGIN 
MAP ptr: REF $BBLOCK; 
--ptr EQL 0 


IF ! If end of table, 
THEN 


EXITLOOP; ' then_exit with failure 
if govent Cevt$w_code] EQLU .ptr [(0,0,16,0] ! If known event, 

BEGIN 

LOCAL 


CONS 


- 
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> 464 0870 4 textbuf: VECTOR pigs Bvt}. ! Message text buffer 

; 465 0871 4 text: VECTOR [2]; ! Message text descriptor 

; 466 pers 4 text (0) = 128; ! Setup descriptor 

; 467 0875 4 text (1j = textbuf; 

; 468 P 0874 4 SGETMSG(MSGID = .ptr (2,0,32,0], ! Get message text 

: 469 P 0875 4 BUFADR = text, 

; 470 Pp pare 4 MSGLEN = text, 2a 

: 67) 0877 4 FLAGS = 1); ! without any prefixing 

: ote 0878 4 pppenat» 'AS', text); 

: 47 0879 4 EXITLOOP; 

> 474 0880 3 END; 

; 475 0881 END; 

; 476 bans } : 

; 477 088 new_Line; ! Start a new Line 

: 478 0884 § 

5 ri44 tH § append('From node !AS', format_nodeadr(.event Cevt$w_srcadr])); 

; 481 0887 2 IF .event Cevt$b_srcnamlen] NEQ 0 ! If source node name supplied 
; re 0888 2 TH 

; (48 0889 2 append(* (!AC)", event Cevt$b_srcnamlen])); 

> 484 0890 2 age: 

; «6485 0891 days = .event Cevt$w_julian]; ! Get julian values 

> 486 494 seconds = .event Cevt$w_seconds]; 

3 re 14 Baez msecs = .event Cevt$Sw_msecsJ; 

3 rt +344 2 evl$unjulian(days,seconds,msecs,time); ! Convert to system quadword time 
>; «6491 0897 $ append(", !%D°, time); 

> 492 0898 2 ’ ‘ 

3 493 0899 2 new_line; ! Start third Line of message 
3 ri 84 § comma_needed = false; ! Start of Line, no comma needed yet 
§ rts] 8454 § ptr = event Cevt$t_srcnam) + .event Cevt$b_srcnamlen]; ! Point to event entity 
; 498 0904 2 SELECTU CHSRCHAR_A(ptr) ' Select entity based on entity ID 
: 499 0905 2 OF 

; 500 0906 ¢ SET : 

; 501 0907 Cevc$c_src_lin]: BEGIN ; 

: 502 0908 3 append('Line !AC', opted: 

; 503 0909 3 ptr = CHSRCHAR_A(ptr) + .ptr; 

3; 504 0910 3 comma_needeé = true; 

; 30> 0911 2 3 

; 506 oat , 

5 307 091 Cevce$c_src_cird: BEGIN ; 

: 508 0914 append('Circuit !AC', .ptr); 

; 509 0915 3 ptr = CHSRCHAR_A(ptr) + .ptr; 

; $10 0916 comma_needed = true; 

3 34 0917 D; 

s Sie 0918 

; S13 0919 Cevc$c_src_nod): BEGIN 

: 514 0920 3 append("Node !AS', format_nodeadr(.ptr (0,0,16,0])); 
s $15 0921 3 tr = sete® ; 

; 516 $358 F CHSRCHAR(.ptr) GTRU 0 

3 S17 09 THEN 

s 518 0924 append(* (!'AC)', .ptr); 

3 319 0925 ptr = CHSRCHAR_A(ptr) + .ptr; 

; 520 0926 comma_needed = true; 


-o 
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; 1 0927 END; ; 
; 5 ¢ 0928 : 
3 929 Cevc$c_src_are]: BEGIN ‘ 
> 524 930 append('Area !UB', .ptr [0,0,8,0]); ; 
3 peo 931 ptr = .ptr+1; : 
3 (3ee 09 ¢ comma_needed = true; ° 
. Ser 09 D; : 
; 5328 0934 : 
: 144 0935 Cevc$c_src_mod]: BEGIN : 
; 30 0936 append('"Module !AC', .ptr); | : 
5 Dor 0937 ptr = CHSRCHAR_A(ptr) + .ptr; : 
: 236 0938 comma_needed = true; | : 
: 2 0939 END; ; 
; 534 0940 TES; H 
3 «Ooo 0941 : 
; 536 094 WHILE .ptr LSSU .event + .event_length ! Until end of event record | : 
$ Dor 094 DO : 
3; 3a8 0944 BEGIN : 
3 339 0945 LOCAL - 3 
; 540 0946 3 startlen; ! Starting string length ; 
; 541 0947 3 | ; 
3 246 0948 ; IF .desc CO] GTR 45 ! If Line already too long, ; 
; 74 0949 THEN : 
; 544 0950 4 BEGIN. ; 
> 545 0951 4 new_line; ! then start another Line ; | ; 
; 546 B23¢ 4 comma_needed = false; ! Indicate no comma on start of Line : 
; 547 095 ; END; 3 
; 548 0954 : 
; 549 0955 3 startlen = .desc (0); ! Save starting string length : 
; 390 0956 3 $ 
3; 991 0957 3 IF .comma_needed ! If comma needed, : 
3 See 0958 3 THEN 3 
3 393 0959 4 BEGIN : 
; 554 0960 4 append(', '); ' then add it : 
3: 329 0961 4 comma_needed = false; ! and reset flag : 
s 536 0962 3 D; : 
acta 0963 3 ; ; 
: 558 0964 3 IF .ptr (0,15,1,0] ! If counter data (bit 15), | ‘ 
; 559 0965 3 THEN : 
; 560 0966 4 BEGIN : 
; «3el 0967 4 IF .short_form LSS 0 ! If first counter, : 
3 Jee 0968 4 THEN : ; ; 
; 563 0969 4 short_form = .startlen ! set short form up to this point 3 
3; 564 0970 4 ! and trailing comma ‘ 
; 565 0971 4 : 
; 566 0972 4 short_form = 0; ' else skip all counter output | : 
3; 367 0973 4 new_line; ' start a new line 3 
; 568 0974 4 format_counter(desc, ptr, ! then format the counter; update ptr : 
; 569 0975 4 event + .event_length - .ptr); : 
HP BG eset 
; 572 978 : format_parameter(desc, ptr, ' else format the parameter; update ptr 
3; fs 0979 event + .event_length - .ptr, 
; ere 8444 -event Cevt$v_classJ); 
3; 376 098 IF .startlen NEQ .desc (0) ! If anything was appended to string, 
3 S77 098 THEN 


ee ae a ere 


-PSECT $PLIT$,NOWRT,NOEXE,2 
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a 038s Eup; ommaaneeded = true; ! then insert a comma 
: 581 S38 If .desc (0) GTR 0 ! If something in buffer, 
: 0989 8 new ti Output the Last Li | 
; new_line; ' 
3 new_Line; ! Output t i 
so? 093% utput one Las ank Line 
3; 367 09935 1 END; 
| 
-TITLE CONSOLE 
-IDENT \V04-000\ 


0000 00000 P.AAA: .wORD 0 toe 
000000006 00002 "LONG  EVL$_NMA_LOS : 
0001 00006 “WORD : 
000000006 00008 "LONG  EVL$_NMA_ANC : 
0002 0000C “WORD : 
000000006 0000E "LONG  EVL$_NMA_ALC : | 
0003 00012 “WORD : 
000000006 00014 “LONG EVL$_NMA_ALS : 
0004 00018 “WORD : 
000000006 0001A "LONG EVL$_NMA_LCZ : | 
0005 O001E “WORD . : 
000000006 00020 "LONG  EVLS$_NMA_NCZ : | 
0006 00024 “WORD : | 
000000006 00026 "LONG EVL$_NMA_PSL : | 
0007 0002A "WORD 7? : 
000000006 0002c "LONG  EVLS$_NMA_ABS : | 
0008 00030 “WORD : | 
000000006 00032 “LONG EVL$_NMA_CTR : 
0009 00036 . WORD : 
000000006 00038 “LONG EVL$_NMA_ZER : 
008 xc «WORD 1 : 
000000006 0003E -LONG EVL$_SCL_LNS : | 
0081 "WORD 129 : | 
000000006 00044 "LONG EVL$_SCL_ACR : 
00C0 00048 "WORD 192 7 : 
000000006 0004A -LONG — EVLS_NSL_IMS : | 
90C1 0004¢ "WORD 19 : | 
000000006 0005 "LONG EVLS$_NSL_IFC : | 
90¢2 0054 "WORD 194 : 
000000006 00056 "LONG EVL$_NSL_DBR : 
9100 005A “WORD 256 ~ : 
0000 0006 005¢ “LONG EVLS_TPL_APL : | 
0101 00060 "WORD 25 : 
000000006 00062 “LONG  EVL$_TPL_UPL : | 
019 0066 "WORD 258 : | 
0000 09 6 0 68 “LONG — EVLS_TPL_RPL : | 
1 06C "WORD 25 : | 
000000006 O06E “LONG VL$_TPL_OPL : | 
104 0007 "WORD 26 : 
000000006 60074 "LONG EVL$_TPL_PFM : 


————_— 


1 
1 
0105 00078 
nat °% ppta 
0086 90080 
0000 % G 0008 
4 7 00084 
0000 9206 0086 
01 geen 
090000006 45 
0109 0009 
000000006 00092 
Q10A i 
orate 009 
10B_ Q009C 
000000006 443 
010C_ QO0A 
000000006 Q00A4 
0100 OO0A8 
000000006 QOOAA 
OIDs QOOAE 
000000006 00080 
Q10F 00084 
000000006 00086 
0110 QOOBA 
000000006 000BC 
0111 000CO 
000000006 000C2 
0112 Bence 
000000006 000C8 
0113 OodcC 
000000006 QOOCE 
0140 000D2 
000000006 00004 
0141 00008 
000000006 QO0DA 
0142 QOODE 
000000006 000E0 
0143 O00E4 
000000006 Q00E6 
0144 QOOEA 
oooonorre QOOEC 
0145 O00FO 
000000006 000F2 
000090086 BOOS 
129 Bore 
000000006 Baers 
0148 0010 
oooonerze 00104 
0149 00108 
000000006 0010A 
Bie Hh 
000000006 0011 
Ane 114 
000000006 00116 
14C€ 11A 
000000006 0011C¢ 
014D 00120 


Be 92:2 


! 
fy $_TPL_PRU 
v $_TPL_VFR 
VL$_TPL_LDF 
VL$_TPL_CDS 
VL$_TPL_CDO 
VL$_TPL_LUP 
VL$_TPL_ILF 
VL$_TPL_ISF 
EVL$_TPL_IOF 
EVL$_TPL_RCH 
EVL$_TPL_AUP 
EVL$_TPL_ARJ 
EVL$_TPL_ACH 
EVL$_TPL_LDS 
VL$_TPL_LDO 
VL$_DLL_LSC 
EVLS_DLL_RSC 
EVES_DLL_PRS 
yi $_DLL_SND 
VL$_DLL_RET 
VL$_DLL_SiC 
L$_DLL_BHF 
VL$_DLL_SAD 
VES_DLL_STT 
VL$_DLL_LBS 
VL$_DLL_RST 
$_DLL_STC 
EV, S_DLL_RME 
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L$_CTNOD_ZER 
_CTNOD_BRC 


0 
L$_CTNOD_BSN 


0 
L$_CTNOD_MRC 


L$ 
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SIO IO IO IO IO 
ar oer oer oe oe DS 
WICO WOO WID WIGDWCOWOWO WOWOWOWO 


89 
EVL$_CTNOD_CRC 


621 
EVL$_CTNOD_APL 


EYLS_CTNOD ALL 


EVLS_CTNOD_RTO 
EVLS_CTNOD_RSE 


BVLS_DLL_SFL 
EVLS_DLL_DTD 
EVLS_PLL_COM 
EVLS_CTNOD_CSN 
64 
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6000 25° 78 -LONG FVL$_CTCIR SLT | ; 
0000 0006 3 -LONG FVLS_CTCIR_UBU ; | : 
0000 6006 4 -LONG FVLS_CTCIR_RPE ; | : 
0000 0006 A -LONG FVLS_CTCIR_LPE ; | ; 
0000 0006 0 $0 -LONG FVL$_CTCIR_LIR : ; 
0000 9006 0 36 - LONG EVL$_CTCIR_RIR ; 
omnes Bh cuiee Sey cteun 2 : 
oon 0 he -LONG EVLS_CTCIR_MNE ; : 
000000006 $0 3 - LONG EVES CTCIR_ERI : ; 
OABF 00 AC “WORD 2751 : : 
000000006 OO2AE “LONG EVES CTCIR_ERO : : 
OACO 00282 “WORD 2752 : : 
000000006 00 B4 LONG EVES CTCIR_RTO : : 
OAC] 00288 “WORD ©2753 : : 
000000006 002BA “LONG EVL$_CTCIR_LTO : : 
OAC2 O02BE “WORD 2754 : : 
000090006 002c0 LONG EVES CTCIR_BER : : 
OAC3 002C4 “WORD ©2755 : ; 
000000006 002¢6 "LONG EVLS_CTCIR_BEL : : 
0320 O02CA ‘WORD 800 : : 
000000006 o02cc “LONG EVL$_CTLIN_APR : : 
0321 00200 “WORD 801 : : 
000000006 00202 “LONG EVL$_CTLIN_DPS : : 
0322 00206 "WORD 802 : F 
000000006 00208 “LONG EVL$_CTLIN_ACL : : 
032A 0020C "WORD 810 : : 
000000006 O02DE “LONG EVLS_CTLIN_TPR : : 
0328 002E “WORD 811 : : 
000000006 00264 “LONG EVL$_CTLIN_TPS : : 
032¢ 002E8 "WORD 812 : : 
00000000 00 EA “LONG EVES _CTLIN TCL : : 
0334 OO2EE “WORD 82 : ; 
000000006 0 FO -LONG EVLS_CTLIN_LDN : 
20009 O2F6 “LONG — EVLS_CTLIN.IFL ; 
000090006 6 FC -LONG EVLS_CTLIN,BRC : ; 
000000006 0 02 -LONG EVL$_CTLIN,BSN 3 
00000 p G 6 08 -LONG —EVLS_CTLIN_MBY 3 | : 
on 096 0030¢ -LONG FVL$_CTLIN_DBR ; 
0000 00 G 00314 “LONG EVL$_CTLIN_DBS : F 
F4 18 “WORD = 101 : : 
0000 9006 1A -LONG FV _CTLIN MBL : 
000000006 00 § “LONG EVL$_CTLIN_BID : : 


RS 


om 006 
0000 1% 
000006066 
00009 se 
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1 
1 
F 4 
000000006 . 
000000006 f 
00 
0000 90 G 00 é 
00 
000000006 0 
0000 0006 0 : 
07° 00349 
0000 te 8 44 
4) 48 
000000096 0034A 
798 0 f 
000000006 O32 
O41A 54 
000000006 §328 
Baie Q35A 
000000006 0035C¢ 
0424 00360 
000000 96 00362 
04 00366 
000000006 00368 
0426 0036C 
ened '< si B0895 
0427 3 ? 
000000006 00374 
0428 00378 
000000006 0037A 
0429 O037E 
000000006 ty 
042A 00384 
000000006 i 
044¢ tt 
000000006 0038C 
0440 Op aos 
000000006 0039 
pare i 
000000006 88 9 
rtd 039 
000000006 0039 
nit O3A 
000000006 8 A 
A A 
000000006 003A 
A O3A 
ened **? 038 
00 038 
038 
8 B 
B 
03C 
3 C 
C 
03¢ 
03¢ 
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_CTLIN_BS1 
_CTLIN_BSM 
_CTLIN_DEI 
_CTLIN_DEO 
_CTLIN_RRT 
_CTLIN_LRT 
TLIN_RBE 
_CTLIN_LBE 
_CTLIN_SIE 
_CTLIN_SLT 
_CTLIN_SFL 
_CTLIN_CDC 
_CTLIN_RFL 
_CTLIN_UFD 
_CTLIN_OVR 
_CTLIN_SBU 
_CTLIN_UBU 
_CTLIN_RPE 
_CTLIN_LPE 
_CTLIN_MBS 
_CTLIN_MSN 
_CTLIN_RME 
_CTLIN_LCE 
_CTLIN_MSE 
_CTXP_ZER 

_CTXP_BRC 

_CTXP_BSN 

_CTXP_BLR 
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Vv ei = - | 3 
000000006 C LONG $_CTXP_BLS : s | 
4 6 0 6 . WORD 1200 : : 
4B D8 “WORD 2 i-¢ : ; 
000000006 003DA LONG FVLS_¢ CTXP_CSN : s 
4BA DF “WORD 10” : a 
000000006 003€ LONG FVLS_ CTXP_FSR : 3 
04BB £4 “WORD 12117 : sf 
000000006 00366 LONG FVLS CTXP_FSS : ; 
Dac EA “WORD 12207 : sf 
000000006 003E LONG EVLS_CTXP_MSA 3 | 
ac : F “WORD 12217 : ; 
000000606 003F LONG FVLS. CTXP_MCA : 3 
4c rg “WORD 12307 : 4 
000000006 003F “LONG EVL$_CTXP_RSE : & 
4p O3FC “WORD 12407 : : | 
000000006 00 FE “LONG EVL$_CTXP_LIR : . 
0409 0040 “WORD 12417 : 2 | 
000000006 00404 “LONG EVL$_CTXP_RIR : 
O4Da 00408 WORD 1242” | 
000000006 0040A LONG PvE S CTXP_NIR : 3 
04E snk 3 «WORD 12507 5 : | 
000000006 0041 LONG EVLS_CTXP_RST : 3 
0000 00414 “WORD 0 : s | 
000000006 00416 ~ LONG yt. CTXS_ZER $ 3 
00cB 0041 “WORD 200 5 
000000006 0041¢ “LONG EVLS$_CTXS_MCA : : 
9002 00429 “WORD 210. ~ : | 
000000006 0422 LONG EVLS_ CTXS_ICR : : | 
00D3 00426 WORD : > 
$88 00NR0. bo4se 1 RE \ecditeco 74 
21 20 74 6€ 65 76 65 20 7% 65 6 43 45 44 14 094 0 P.AAC: .ASCII <20>\DECnet event !UL.!UL\ : | 
§ 41 $1 30 2c 05 iets P.AAD: .ASCII <S>\, !AS\ : : 
S341 21 20 GS 6 OF Ge Th te fe SF MF Bike POA: CASELT cia iren, pode IAS\ : 4 
44 25 $1 5 $¢ bS 0460 P.AAG: .ASCII <5>\,_ 1 2D\ : é 
43 41 21 $e 8 6— 69 as 08 00466 P.AAH: .ASCII <8>\Line !AC\ 3 : | 
43 41 21 20 74 69 75 63 72 69 43 OB 046F P-AAL: .ASCII Tiki tecett 'AC\ : : 
53 41 (21 2 65 64 6F 4 08 00478 P.AAJ: ASCII <8>\Node !AS\ : 3! 
39 43 41 21 38 2 06 0484 P.AAK: ASCII <6>\ CIAC)\ : mal 
42 55 21 20 61 65 72 41 0488 P.AAL: .ASCII <8>\Area !UB\ : , | 
43 41 21 20 65 6C 75 64 6F 4D OA 00494 P-AAM: .ASCII <10>\Module !AC\ : zi 
20 2C O02 0049F P.AAN: ASCII <2>\, \ : | 
KNOWN_EVENTS= P. AAA : 
KNOWN” COUNTERS= AAB . 
.EXTRN EVLSEL LOGMASK EVLSUNJUL IAN : 
“EXTRN WKOQSADD WORK ITEM : 
“EXTRN EVLS_NM wPOSs EVL$_NMA_ANC s | 
“EXTRN EVLS"NMAWALC. EVLS-NMA-ALS F 
“EXTRN EVLSNMATLCZ. EVLS-NMA_NCZ 3 | 
“EXTRN EVLS"NMATPSL. EVLS$-NMA_ABS . 
“EXTRN EVLSNMATCTR. EVLS-NMA_ZER 3 | 
TEXTRN EVLSZSCLILNS, EVLSZSCL-ACR : 
“EXTRN EVLSTNSLIIMS, EVLS-NSL~IFC ; 
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-PSECT S$CODES,NOWRT,2 
R10,R1 


-ENTRY FORMAT 


OFFC 00000 


MTree om oO wM~ [¢] 
Wnnwn w eo kerter ~ 
00.00 00 00 to 2] c ccc (2) 
oooo oo oOo OOO oO 
PSPSPS HS HS HS HS FS HS HS FS ES FS HS HS SCS FS HS SS SS HS SCS TSF S SESE SE ES 
ia 
aa. 
mn ” ” 
~~ wo wo 
te 2am) 2 
—a ~w _ 
T= ss « + oO fo 
-c AA = e _ ” _ 
a Veo cu nw ~ =< ta ” 
nn Wu CO -— f+ 4 ww = ' 
- wl ~w a2 —- w a 
—- +: orfcuce au axe A oO 2 
+ <a [. a+ 4 w> ~~ w a A uw 
a “Oo a Qaw uw ” a 
1 &rt “OO at . 2=~ “> a 
ver wore “ss ~ -@ 1 an oo <« 
<qouuw 2 o en OF eee ae 
KOWuw Ws eM SOF Of CUM MO eK * 
OWD— SPOOR wT ZORA Re We WwW nase 
a2 ' OM@Qwkteslo2@ MYMrwouvzTrBer-Ww2-AoOs 
a 
SEOINNITIT Id sit ZONaotIrTtstrtrtH 
ad ed ed od eh Ch et ee ee ee 
4 Fat F ttt tet tee tet tt 2 oe eet ee ee 
FFvETFBwweao.vk-OMIOBTZFTAQAaAwAAdAw 


BOO ee NINN AT ST AT TUOUNUNOOO 
SOSSOOOOCOSOSOOOOSOOSOOOOSOOSSoSSoSoo 
SOOOSCSCSCSOSOSOOSOSOSOSOSOSOOSOSOSoOSoSoOoSoS 
CGOOOCCOCOCOOOOSOOOOOOOOOOOOOOSoO 


Ww WWOe. Ou Owmmen VE WO O@Muuu@D 
AO OS YS OWWOCUL PORK OK OOOO OUOOO uD 


WOW VOOM OST DMO Oe We WWMINWwWoOOoM 
VE TvVoqoonaovwm ava codec coacatsto 


Nu OC DLW COMO 
So On &eO Ku 


FO 
FBDO 


000000006 00 
0000v CF 


= 
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16-Sep-1984 01:31:10 VAX-11 Bliss-32 V4.0-74 Page 21) 
1o-808= 1382 3 34:12 DIEKSVMEMASTERCLEVE SRCTCONSOLE 83231 . (3) | 
5 11 0006C BRB 3$ ; 0868 
06 £6 2$: ADDLZ #6, PTR + 0859 
OC AC DO 00073 3s: MOVL QUTPUT ROUTINE , R7 + 0881 
SA DD 007 PUSHL  SHORT_FOR : 
FO «AD OOF 079 PUSHAB ; 
10 AC p0 0 7 MOVE “peer R6 : 
03 FB $08 CALLS (R7) : 
FO AD bs 008 CLAL beg : 
OA A2 3C 00088 MOVZWL 19 (R2) P) + 0885 
1 FB d08¢ CALLS CREO RMAT® _NODEADR : 
0 DD PUSHL : 
eS es : 
03 FB 00099 CALLS pesc APPEND_STRINGS : 
oe hs i 
OC Ad OF a90ns PUSHAB 12(R2) + 0889 
29 AB OOF 0006 PUSHAB  P.AAF : 
FO AD 9F OOOA9 PUSHAB DESC F 
03 FB OOOAC CALLS #3, APPEND STRINGS : 
04 A2 3C 00081 4$ MOVZWL 4(R2), DAYS + 0891 
06 A2 3C 00086 MOVZWL 6(R2), OE CONDS > 089 
08 A2 3¢C 00088 MOVZWL 8(R2). MSE > 089 
F8 AD OF OOOBF PUSHAB TIME + 0895 
04 AE 9F 000C PUSHAB MSECS ; 
OA SF ABBE PASM Sees 
04 FB 000CB CALLS ma EVLSUNJULIAN : 
F8 AD 9F 00000 PUSHAB TIME + 0897 
BOM 3 Bite BUSS Bette : 
03 FB 00009 CALLS pesc APPEND STRINGS : 
5A DD O00DE PUSHL SHORT_FORM : 
eS 2 
o PRB | BB fon ; 
53 94 OG0EB CLRB COMMA, NEEDED : 0900 
0c Ag 9A OO0ED MOVZBL Ve¢R2 : 0902 
OD A042 9E O00F1 OVAB_. 1 cho) Ra), PTR : 
O¢ BE i) OOF? MOV ZBL aPT ; 0904 
Bei ee jo 
oC AE DD 00105 PUSHL PTR > 0908 
76 AB OF 0109 BUSHAB DESC. } 
03 FB a1 CALLS i tqhPREND. STRINGS : 
be ORE Be boris TNCLe Aen 
5 i ota ADDL2 RO, P : 
1 90 0011C MOVE so #1, EORNA,NEEDED : 091 
ae G2 Reo gieh ay je 
OC AE DD SE PUSHL PTR : ae 
| 
| 
} 


1 VAX-11 Bliss-32 V4.0-74 Page 22 CONS 
1 NTEKSVMEHASTERSLEVE SRCTCONSOLE 83231 ° (S v04~ 
3F = AB SCO9F:s«00127 PUSHAB P.AAI : 
FO AD 9F OO12A PUSHAB desc : 
0000v cr 03 FB 001 p CALLS @ APPEND. STRINGS : 
0 oc BE 9A 001 MOVZBL aPfR, R + 0915 
Ss 06 1 § INCL : 
0c af 5 i 1 ADDL2 RO, PTR : 75 
5 1 oi D MOVB #1, COMMA_NEEDED ; 0916 | 
4 0D 140 6$: TSTL RG : 0919 
B 12 0014 BNEG 8S ; | 
7E 0c BE 3C 00144 MOVZ2WL @PTR, -(SP) + 0920) 
0000v CF 1 FB 00148 CALLS #1, FORMAT_NODEADR : 
50 pp O40 PUSHL RO : 
4B AB 9F OO14F PUSHAB P.AAJ : 
FO AD OF 0152 PUSHAB DESC ; 
0000v CF 0 FB 0015 CALLS #3, APPEND_STRINGS : 
OC AE 02 § 0015A ADDL2 #2, PTR > 0921 
OC BE 3 0015€ TSTB. = aPTR + 0922 
OE 13 00161 BEQL 7$ ; 
g¢ AE DD 00163 PUSHL PTR + 0924 
4 AB 9F 00166 PUSHAB P.AAK : 
FO AD 9F 00169 PUSHAB DESC ; 
0000v CF 03 FB 0016C CALLS #3, APPEND_STRINGS : 
50 OC BE 9A 00171 7$: MOVZBL a@PTR, RO : 0925 
OC AE D6 00175 INCL PTR : 
0c AE 50 ¢O 00178 ADDL2 RO, PTR : 
5 01 90 0017C MOVB #1, COMMA_NEEDED : 0926 
05 54 91 OO17F 8S: CMPB RG, #5 : 0929 
15 12 00182 BNEQ ; 
7E OC BE 9A 00184 MOVZBL @PTR, -(SP) + 0930 
5B «AB OOF «00188 PUSHAB P.AAL ; 
FO AD 9F 00188 PUSHAB DESC ; 
0000v CF 03 FB 0018¢ CALLS #3, APPEND_STRINGS ; 
OC AE D6 0019 INCL PT > 0931 
53 01 90 00196 MOVB #1, COMMA_NEEDED : 0932 
04 54 91 00199 9$: CMPB RG. 4 : 0935 
1¢ 12 0019¢ BNEQ 10$ : 
OC AE DD 0019€ PUSHL PTR : 0936 | 
64 AB OF OO1A1 PUSHAB P.A ; 
FO AD 9F OO1A4 PUSHAB DESC F 
0000v CF 03 FB OO1A7 CALLS #3, APPEND_STRINGS : 
50 OC BE 9A OO1AC MOVZBL aPTR, RO : 0937 
0c AE D6 00180 INCL : 
oc AE 50 CO 001B3 ADDL2 RO, PTR : | 
5 01 99 00187 MOVB #1, COMMA_NEEDED : 0938 | 
55 FO AD DO 001BA 10$:  MOVL R ; 0948 
58 52 08 AC CI 00 18g ADDL3 = EVENT LENGTH, R2, R8 : 0942 | 
58 C AE D1 001C3 118: CMPL PTR, R ; 
7A 1€ O01C7 BGEQU : | 
2D 55 D1 001C9 CMPL = R85, #45 > 0948 
OF 15 001CC BLEQ : | 
SA DD 001 CE PUSHL SHORT_FORM : 0950. 
FO AD 9F 00100 PUSHAB DESC ; 
56 DD 00103 PUSHL R6 : 
67 03 FB 00105 CALLS #3, (R7) ; 
FO AD D4 00108 CLRL ~—_:dBESC ; 
53 94 0010B CLRB  COMMA_NEEDED : 0952 
59 FO AD DO 001DD 12$:  MOVL DESC, ~STARTLEN > 095 


“- 
15 | 
CONSO 16-Sep-1984 01:31:10 VAX-11 @liss-32 V4.0-74 Page 23. COh 
you s008 12-9 08-13be tet Ht: DISKSVMSMASTER: CEVL. SRCJCONSOLE.B32; 1 . 3 vOé 
0D 53 9 0161 BLBC  COMMA_NEEDED, 13$ ; 0957 | 
6F AB SF OO1E4 PUSHAB P.AAN : 960 | 
FO AD 9F OO1E7 PUSHAB DESC : 
200v CF Og £8 OO1EA CALLS #2, APPEND STRINGS : | 
94 Oe CLRB_  COMMA_NEEDED ; 0961, 
54 58 Oc AE Co OO1F] 138: = SUBLS. BTR, RB, RG 3 0975 | 
C BE 85 O16 TSTW aPTR + 0964 | 
: 18 OO1F BGEQ 16$ : | 63 
A 05 001FB TSTL | SHORT_FORM + 0967 
05 18 OO1FD BGEQ 14$ : 20 
SA 59 00 OO1FF MOVL § STARTLEN, SHORT_FORM + 0969 
g2 11 00202 BRB 15$ : 
A 04 04204 14$: L  SHORT_FOR : 0972) 
5A DD 00206 15$: | PUSHL SHORT "FORM : 
FO AD OF 00 08 PUSHAB DESC ; | 
56 DD 00208 PUSHL RG F 
67 03 FB 0020D CALLS #3, (R7) : 
FO AD D4 G0g19 CLRL DESC geek, 
54 DD 0021 PUSHL + 0975 
10 AE 9F 00215 PUSHAB PTR : 0974 | 
FO AD OF 00218 PUSHAB DESC : 
0000v CF 03 FB 0021B CALLS #3, FORMAT_COUNTER ; 
13 11 00220 BRB > 0964 
7E 02 A2 09 06 EF 00222 16$: EXTZV #6, #9, 2(R2), -(SP) 3; 0980 
54 DD 00228 PUSHL R4 : 0979 
14 AE 9F 0022A PUSHAB PTR : 0978 
FO AD 9F 0022D PUSHAB DESC F 
0000v CF 04 FB 00230 CALLS #4, FORMAT_PARAMETER ; 
55 FO AD DO 00235 17$: MOVE DESC, RS : 0982 | 
55 59 D1 00239 CMPL = STARTLEN, RS F 
8S 13 0023¢ BEQL 118 ; 
53 01 90 0023 MOVB #1, COMMA_NEEDED > 0984 
80 11 00241 BRB 11$ + 0942 
FO AD DS 00243 188: TSTL DESC : 0987 
OD 15 00246 BLEQ 19$ ; 
5A DD 00248 PUSHL  SHORT_FORM : 0988 
FO AD 9F O024A PUSHAB DESC ; 
56 DD 00240 PUSHL : 
67 03 FB 0024F CALLS #3, (R7) : 
FO AD D4 00252 CLAL $c ; 
5A DD 00255 19$ PUSHL SHORT_FORM : 0989 
FO AD OF 0097 PUSHAB DESC ; 
56 DD 0025A PUSHL RG ; 
67 03 FB 0025c¢ CALLS #3, (R7) : | 
FO AD D4 0025F CLRL —ODESC : 
04 00262 RET > 0993 


; Routine Size: 611 bytes, Routine Base: S$CODE$ + 0000 
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288 41 ROUTINE append strings (result, string, args): NOVALUE = 
591 099 leoce 

238 099 ; 

59 0998 ! Functional description 

594 0999 : 
595 00 : This routine appends an FAO result string to another 
596 01 : string. The second argument is used as an FAO control 

597 be : string with the following arguments used as parameters. 
598 0 ' The result of the FAO operation is appended to the end 
599 04 : of the string described by the first operand and the 
600 05 : descriptor is updated. 
601 06 : 
602 07 ! Input parameters ~ 
603 08 : | 
604 09 : result = Address of descriptor of string to be appended 

605 10 : string = FAO control string (counted string) | 
one 1} args = 0 to n FAO arguments | 
608 : ' Output parameters 
60 


desc (0) = max_output _- .result (0); Setup descriptor for FAO 


desc (1) = .result C1] + .result (0); 

SFAOL(CTRSTR=faodesc, 
OUTLEN=desc, 
OUTBUF =desc 
PRMLST=args); 

result (0) = .result (0) + .desc (0); Update string length 


END; | 


Insert string into buffer 


vvv 
a kk a dd hd 


a ee ie wep ieielolelelelelelolelelelelelelololololalolololololo) 


BHP WANNNWIWNI NIIP PNINININININININ SO 


9 
29 result = Updated descriptor of appended string 
12 —s = =S 
13 
14 BEGIN 
15 
16 MAP 
17 string: REF VECTOR C,8YTE), ' Address the counted string 
Ms result: REF VECTOR; ! Address the descriptor 
20 LOCAL 
21 faodesc: VECTOR (2), ! FAO control string descriptor 
$8 desc: VECTOR (2); ! FAO result string descriptor 
24 faodesc (0) = .string (0); ! Get length of counted string 
$2 faodesc [1] = string (1); 
27 
28 
29 
30 
H 
33 
34 
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~EXTRN = SYSS$FAOL 
0004 00000 APPEND_STRINGS: 
ORD | 


.W save R2 5 0994 | 
5E 0c C2 00002 SUBL2 # SP ; 
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ROUTINE format_parameter (string, param, maxlen, class): NOVALUE = 


Format a NICE parameter and append the 
descriptive text to a given string. 


i Inputs: 


string . Address of descriptor of existing string 


! 
' 
! 
1 
' 
' 
: 
parem = Address of longword containing pointer to parameter 
! 
{ 
' 
i 
] 
' 
' 


47 
64 
650 maxlen = Maximum length that the parameter may be 
? 1 class = Event class 
6 5 i Outputs: 
: 2 ptr = Address of longword pointing to location following parameter 
657 
658 BEGIN | 
659 
660 BIND 
prt desc = .string: VECTOR; ! Address of string descriptor 
: LOCAL 
ptr: REF S$BBLOCK, ' Address of parameter 
param_type, ! Parameter type (specific to class) 
nextptr: REF S$BBLOCK, ! Pointer to next parameter 
fields, | # fields in parameter 
bytel: BYTE ' First data byte after data type 
byte2: SIGNED BYTE; ! Second data byte after data type 
MACRO 
choose(index) = 


aa index FROM 0 TO ZLENGTH-2 


me ee ee em ed a nd a od ot = 8 = od = ww 2 2 = 


rom lee lela lolol ele a] ole el a) el ee) wee www we ole ol ol elo olelolololololelolelelolelolololeleleololelololalo) 


choose_item (string) = ’ 
CXTOUNT]: append('!AC',UPLIT BYTE(ZASCIC string))%; 


ptr = ..param; 
param_type = .ptr (0,0,11,0); 
nextptr = .ptr+2; 

IF .nextptr (0,7,1,0 f coded : 

AND .nextptr (6,6,1,0) and multiple number of fields, 


BEGIN 
fields = .nextptr (0,0,6,0);! Get # fields in parameter : | 
nextptr = .nextptr + 1; ! and skip to actual first data item 


Get address of parameter 
Get parameter type code 


SET 
choose_item(SREMAINING) ; | 
Assume first field follows 
| 
j 


OO O O09 00 0960 00 G9 09 09 09 09 SI INS SIN SSNS SID DRA AAA AAA IIIT EE 


oO 


ELSE 


oo 


fields = 1; 
INCR i FROM 1 TO . fields 
dO 


Else, indicate only one field 


For each field 


POPIPOPIPINI NIN PIPINIPINPYNYIPIPIPININININININININININININININININPINININID 2 9 9 9 OO OO tS SS 
~~ —_ . meme 
= 


709 


—OVOVONOVUSWN “OC VOONOULSWN—O 


NNN NSS NSS SS 
A.A NPONPININPININININUDD) 2 Ss 2 OS SO 


Cevc$c_cls_nmaj: 
SECECTONEU -param_type ! Case on parameter type 


vv 
ee ee ee ce eee eel ee ee em cc ee ee ee ce ee ce ee et ee ee ae ce ee ee ce ce ee ee ee ce ed ee ed ed ed 
a ee ee ee eee 


PUP B BS BS BB BE EE EWAN WANNA DIPOPUPIPNNUNIIN 2 2 SS S COCOOOOOOCOO 
AUFWAR OD OONA UN EWN 9 ODNAUE WIN —$ O DONAUE WN 0 OONOUE WAR OO ONOAUE WN 


ANNA ANAAANAAAANI AWA AANA NAAN AI AIP PUPP NIP POP PONU NP PoPonofnonononononopnongd 


VVVVVVVVVVVVVUVVUVUVVUVUVVUVUUVUUUYU 


{f .gnentotr (0,7,1,0] ! If coded 
gg BOntote = .nextptr + 1 + .mextptr (0,0,6,0] ! Use # coded bytes 


IF .nextptr (0,6,1,0) —! If ASCII image field 
x enextptr 60,0 


»4,0] EQL 0! If zero, hex image field 


er = .nextptr + 2 + CHSRCHAR(.nextptr+1) ! Use ASCIC Length 
nextptr = .nextptr + 1 + .nextptr [0,0,4,0]; ! Else, use binary data length 
CHSRCHAR(.ptr+3); ! Get first data byt 


e 
CHSRCHAR( .ptr+4); ! and second data byte 
EU .class ! For each Layer, 


' Network management Layer 


SET 
pevesc_nma_pserd: choose(.bytel, ‘Load’, "Dump'); 


evc$c_nma_pstsJ: 
BEGIN 


choose(IF .byte2 EQL 0 THEN 0 
ELSE IF -bytee LSS 0 THEN 1 ELSE 2, 
*Requested’, ‘', ‘Successful'); 

IF .byte2 LSS 0 

THEN 


choose(-.byte2-1, 
rerrercers function or option’, 
‘Invalid message format’, 
‘Privilege violation’, 
‘Oversized command message’, 
‘Management program error’, 
‘Unrecognized parameter type’, 
‘Incompatible management version’, 
"Unrecognized component’, 
‘Invalid identification’, 
"Line communication error’, 
‘Component in wrong state’, 


"File open error’, 

"Invalid file contents’, 
"Resource error’, 

‘Invalid parameter value’, 
"Line reo error’, 
‘File 1/0 error’, 

‘Mirror Link disconnected’, 
‘No room for new entry’, 
"Mirror connect failed’ 
‘Parameter not applicable’, 
‘Parameter value too long’, 
‘Hardware failure’, 
‘Operation failure’, 
‘Function not supported’, 
‘Invalid parameter grouping’, 
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; 753 P 1157 "Bad loopback response’, | 
> 754 11 8 ‘Parameter missing'); 
3 4 5 1120 IF .fields GEQ ! If NICE detail specified, 
Be § 1161 SELECTONE .byte2 ' Then for certain errors, 
; re 1396 OF 
3 itv 116 oN 
; 760 1164 4 nma$c_sts top): (append(', '); f 
; 761 P1165 4 choosetCH RCHAR( .ptr+6) ! Expand on FOP detail | 
; £6 P 1166 4 ‘Permanent database’, 
; 76 P1167 4 ‘Load file’, 
> 764 P1168 4 ‘Dump file’ 
: 765 P1169 4 "Secondary loader’, 
: 766 P1170 4 ‘Tertiary loader’ , 
s 767 1171 ; "Secondary dumper')); 
; 768 1178 Cnma$c_sts_cmp,nma$c_sts_ide,nma$c_sts_staJ: 
; 769 1173 4 append(', '); 
: 770 P1174 4 choose(CH$RCHAR(.ptr+6), ! Show entity name 
We ta P1175 4 ‘Node’, 
. 77 P1176 4 ‘Line’, 
Bie P1177 4 bogging, « 
; 774 P1178 4 ‘Circuit’, 
s 775 P1179 4 *Module’, 
; 776 1180 3 ‘Area')); 
3 Wer 1181 3 Cnma$c_sts_pty,nma$c_sts_pva,nma$c_sts_pmsJ: 
; 778 1186 4 g end(', '); 
: 779 1183 4 CA 3 -(.ptr+65<0 16> ! Show NODE parameter 
; 780 1184 4 FROM nma c_pcno_loa TO nma$c_pcno_tlo | 
: 781 1185 4 OF 
; 78 1186 4 SET 
; 1187 4 nma$c_pcno_loa]: append('Load file’); 
3; «784 1188 4 nma$c_pcno_sloJ: append('Secondary loader'); 
s 785 1189 4 nma$c_pcno_tlo]: append('Tertiary loader’); 
; 786 1190 3 ES); 
; «787 1191 3 TES; 
; 788 1136 
: 789 119 IF .fields GEQ 3 ! If optional message text, 
: 790 1194 AND CHSRCHAR(.ptr+9) NEQ 0 ! and its non-null, 
; 791 1195 EN ; 
: a 1138 append('!/!AC', .ptr+9); ! print it 
: 794 1198 Cevc$c_nma_popr): Cpepeee( Capragien *); 
: 795 1199 chooset.bytel, ‘Initiated’, 'Terminated')); | 
; 196 1300 Cevc$c_nma_prsnj: 
; 79 P 1201 hooseT. byte! 
; 798 P 1608 "Receive timeout’, 
3; 799 P 120 "Receive error’, 
; 800 P 1204 ‘Line state change by higher level’, | 
; 801 P 1205 "Unrecognized request’, 
; 80 1 6 "Line open error’); 
3; 80 P 120 Cevc$c_nma_pnod]: (append('Node = !AS‘ 
: 804 1208 format_nodeadr(.ptr (4:0,16,0])); 
: 805 1209 IF .fields GTR 1 
3 06 1210 AND CHSRCHAR(.ptr+7) NEQ 0 
; 80 1211 THEN append(' (!AC)' sptr® »); 
; 808 Isi¢ evc$c nma_pdte): append( TE = tAC -ptr+3); 
; 809 121 evc$c_nma_pfilJ: append('File = ‘AC’, .ptr+3); 
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Cevc$c_nma_pstyJ: 
choo eset bytel 
econdary loader’ ° 


‘Tertiary loader’ { 
‘Operating system’); 
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Covess nae psnij: ! Target's Ethernet address 
meee’ fp ("Ethernet address = !XB', .(.ptr+4)<0,8>); 
FROM 1 TO 
». append ("=!xXB', .(.ptr+4+.p)<0,8>); 


° 


C9]: append('DTE = !AC', .ptr+3); !! @& temporary until PSI gets fixed 
| atte unknown_parameter(desc, .ptr, .maxlen); 


paves cls_sclj: ! Session control Layer 
ECTO .param_type 


SET 


pevesc. scl Gat cBerget New cate "): 
Cevc$c_scl_ pele .ous Cc scl Birt . 
chooset.byt $! ‘ TOff', ‘Shut’, "eaeit ricted'); 
»); 


Cevc$c_scl_pnod a a Pe Source net = 
format_nodeadr(.ptr (4,0,16,0] 
IF .fields GTR"1 


AND CHSRCHAR(. at NEQ 0 
THEN append(* (!AC tr+7)); 

evc$c_scl ~Pspcd: 8 app pend(? ource process 2"); 

evc$c_scl_ att sepenes Destination process = '); 
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7 
8 
9 
0 
4 
5 evc$c_scl_pspc,evc pdpc 
$ : Cappend( UL" CH CHSREHARG etre4)); 
848 THEN append(' (!AC)', .ptr+10)) 
849 evc$c “scl pusr 2 append(' ‘User = ie . eptr+3); 
850 4 evc$c_scl_ppsw]: append('Password’ ar 
82) 5 evc$c_scl_paccJ: append("Account = !AC', .ptr+3); 
26 6 OTK THEROISET: lin 4 "parameter (desc, -ptr, .maxlen); 
bs at 
855 9 Cevc$c_cis_n !' Network services Layer 
856 0 ret foney speren. type 
857 1 OF 
58 $ ET 
59 evete nsl_pm 


3 


(append ag: e='); 

unknown_param_ ata(desc, -ptr+2, .maxlen)); 

fevesc. nsl_pflo): append(' Current f flow control = 'SB', .bytel); 
evc$c_nsl_pnodJ: (append(' Source ede ode 
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ws 


SAAS 
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format _nodeadr(.ptr 
IF . fields 
AND CHSRCHAR(.ptr+7) NEQ 0 
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: 7 1271 THEN a sae ('AC)', .ptre7)); 

: o8 1 i COT HERWI ISEJ: unknown _parameter (desc, -ptr, .maxlen); 

; 86 127 TES; 

; 70 1274 | 

: 871 1275 Cevc$c_cls_tpli: ' Transport layer | 

; 87 1 18 SECECTO .param_type 

3 87 127 OF 

3 afe 1 4 os 

; 875 127 evete _tpl_ppkhi: 

3 676 1280 (append Pocket header = '); 

; 87 1281 nown spar m _data(desc, -ptr+2, -maxlen)); 

; a78 1 o¢ Cevese tpl Pokb 

; 87 128 pend( Packet < bepinning ="): 

; 880 1284 new. aram_data desc .ptree, -maxlen) 

; 881 1285 evc$c_tpl_phia): append(' Hi ovat address = ui, ptr (3,0,16,0]); 

; 88 1286 evc$c_tpl_ bad) : append('N 

; 88 1287 evc$c_tpl_ ~ : append( ‘Adjacent node a *); 

; 884 1288 evc$c_tpl_p : Be pend('Expected node = "); 

; 885 1289 eves. “tpl- pnod evc$c_tpl_pexp,evc$c_tpl paef): 

: 886 1290 (append('!as' format “nodeadr(.ptr £%,0,16,0))); 

; 887 1291 IF . fields GT 

; 888 129 AND CHSREHARC. were NEQ 0 

; 889 129 THEN append(' ( »ptre7)); 

; 890 1294 Cevc$c_tpl_prsn 

; 891 P 1295 chooset. “by yet. 

; 89 P 1296 ine synchronization lost’, 

; 89 P 3.44 rd ‘Data errors’ 

3 894 P 1298 § "Unexpected packet type’, 

; 895 Pp 1938 "Routing update checksum error’ P 

; 896 P 1300 ‘Adjacent node address change’, 

3; 897 P 1a) ‘Verification receive timeout’, 

: 898 P 1 4 "Version skew’, 

; 899 p 130 Sr acent node address out of range, « r 

: 900 P 1304 2 d}acent node block size too ont \' 

; 901 P 1305 2 et id verification seed value’ 

3 306 P 1306 2 "Adjacent node listener receive ai 

; 90 P 1307 2 "Adjacent node Listener received jneout *data', 

: 904 P 1308 ‘Call faile 

: 905 P 1309 wWerdtication password rogysred from Phase III node’, 

; 906 1310 ‘Dro ogjacent no 

; 907 P 1311 Cevc$c_tpl persis "app ena scelved uyersion = LU, 

; 908 P 1 \¢ PSR RCHAR( .ptr+4) 

: 909 P 131 CHERCHAR(. “pores: 

: 910 1314 : CHSRCHAR(.ptr+ +7 

3 91 1315 Loves _tpl_psts]: ( 

: 44 1318 Ooset. bytel, "Reachable', ‘Unreachable')); 

: 91 131 COTHERWI SE): unknown _parameter (desc, -ptr, smaxlen); | 

: 914 1 18 TES; 

: 915 131 

: 916 1320 Cevc$c_cls_ dll): ! Data Link layer 

: 917 1321 SECECTO .param_type 

: 918 1328 sf | 

; 919 1 ET 

; 920 1324 evc$c_dll_pold]: append('Old state = '); 

3; 921 1325 evc3c_dll_pnew): appendt’ at tate = "); 

; 9 § 1 $ evc$c_dll-pold, evcsc dll pnew | 

3; P 1 chooset. byte, ‘Halted pr TSTRT’, *ASTRT', Running’, | 
| 
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] 
> 924 1 *Maintenance'); | 
; 925 1 § Lovete dll phdrd: 
; 9 8 1330 (append('Header = '); 

; F 1331 unknown param _data(des sc, .ptr+2, .maxlen | 

; 928 1 § evc$c_dll_psltJ: append(' selected belberery. +, vuLe »bytel); 

; 929 1 evc$c_dllippvtJ: append(' Prey ous tributary = !UL',.bytel); 

; 950 1334 evc$c_dll- pret: (append('Tributary status = '); 

; 931 P 1335 chooset.b byte 

3; § § P 1 § treaming' 

; 9 P 1 ‘Continued send after timeout' { 

,; § P 1338 ‘Continued send after deselect’, 

; 935 1339 "Ended streaming')); | 

3 9 1340 evc$c_dll_prtb]: append('Received tributary = !UL', Cort }: 

; 937 1341 evc$c_dil_pbklJ: append('Block Length = ‘UL P ptr 4 6,0]); 

: 938 1 4g evc$c_dll-pbfl]: append ‘Buffer, tength = UL ~ptr C3, 61460035; 

; 939 134 evc$c_dll“pdteJ: append(' DTE =! t) i r+ 

; 940 1344 evc$c_dll_ pte: : (append(' | Bh ng : 

3: 941 P 1345 chooset. “oper 

; 94 P 1346 Operator command’ 

; 94 1347 ormal operation')); 

3; 944 1348 evc$c_dll post's append’ ‘otd state = '); 

; 945 1349 evc$c_ he _pnst fBeyatt on New tate ="); 

3; 946 1350 evcSe. dll repost eugac st 

> 947 1351 2 dose. bytel,'0 ‘oft, ‘Shut® ); 

; 948 1 26 eve$c dl l_ptypJ: appunet® Parameter type = #'UL', .ptr €3,0,16,0)); 

; 949 135 evc$c_dll-pcauJ: append('Cause = !UL", . by s 

: 950 1354 evc$c_dil_pdia : append(' Dia nostic = !UL’, _ebytel); 

3; «951 1355 evc$c_dll_ peels (append('Failure reason = '); 

3; 952 P 1356 3 chooset.b byte! 

3 953 P 1357 xcessive collisions’, 

3; 954 P 1358 ‘Carrier check failed’, 

; 955 P 1359 

; 956 P 1360 ‘Short circuit’, 

; «957 P 1361 ‘Open circuit’ = 

; 958 & 1366 "Frame too long’, 

; 959 P 136 ‘Remote failure to, defer’, 

; 960 P 1364 ‘Block check error’ ° 

: 961 P 1365 ‘Framing sh ‘ 

3 308 P 1366 ‘Data overru 

; 96 P 1302 "System buffer “unavailable ° 

3 964 P 1368 ‘User buffer unavailable’, 

3; 965 1369 “Unrecognized | frame destination')); 

; 966 1370 evc$c_dil -pdisi: append(' Distance = 'UL', -ptr (3,0,16,0)); 

; 967 133) evc$c_ pitt. _pehd geppend( Ethernet header = at 

; 968 1 % unknown sparam. data(desc, eptr+2, .maxlen)); 

3; 969 137 Cevc$c_dll_phwsJ: (append('Hardware status = "5; 

: any 1378 unknown_param_data(desc, .ptr+2, .maxlen)); 

; ar6 1376 COTHERWISEJ: unknown_parameter(desc, .ptr, .maxlen); 

; 97 1377 TES; 

; 974 1378 ; 

3; 975 1379 Ceve$c_cls_plli: ! Physical Link layer 

: 976 1380 SECECTO -param_type 

3; WF 1381 

; 978 1 § 

: 979 1 +e pll_pdvr]: append("Device register = XW", .ptr (3,0,16,0)); 

; 980 1384 evc$c_ atte _pnew): (append('New state = ‘); 
| 
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(69,225,226): 


Cevc$c_cls_vm 
seCectO 2 type 


COTHERWISEJ: unknown_parameter(desc, .ptr, .maxlen); 


sparam = .nextptr; 
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coset .by tel, Off’, : 
Unknown  selemriarthens. ptr, .maxlen); 


' DECnet/SNA getevey., 


i and Router ees $3365 specific events 
' CALL parenerers are text) 
unknown_param_data(desc, .ptr+2, .maxlen); 


) specific events 
) specific events 


! VMS specific events 


ee _vms ia: (append('Remote node ') 


AR(.ptr+3) EQL 0 ! O=address, else name 


» format_nodeadr(.ptr (4,0,16,0])) 


-ptr r+3)); 
: append(' Name = !AC' eo 
append('PID = ‘ML’. 
: append('Status = 
THER@I SET: unknown_parameter ( 


evc$c_vms_pprc 
evc$c_vms_ppidJ: 
eves, vms_psts 
Bf, -ptr, ptr 'L8.0°82, 


! Skip to next parameter 


SPLITS,NOWRT ,NOEXE ,2 
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<17>\Operation failure\ 
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<22>\Function not supported\ 


<3>\!AC\ 


<26>\Invalid parameter grouping\ 
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CONSO 16-Sep-1984 01:31:10 VAX-11 Bliss-32 V4.0-74 Page 36 
y04- 5 1a-8ep-19 4 Pet er DISKSVMSMASTER: CEVL.SRCJCONSOLE.832;1 . (5) 
20 3D 20 73 73 $3 3 66F gary $ 
4¢ $5 21 03 A81 P.AGC: .ASCII <3>\!UL\ 3 
9 43 41 21 38 Q 6 QOA8S P.AGD: .ASCII <6>\ (TAC)\ : 
43 41 21 $8 D 39 Me § A QOA 3 P.AGE: .ASCII <10>\User = !AC\ 3 
64 6F 7 61 0 08 QOA97 P.AGF: .ASCII <8>\Password\ ; 
43 41 21 $8 D 20 74 6E€ 75 gf $ 63 41 Bo ee P.AGG: .ASCII <13>\Account = !AC\ 3 
0 3d 20 § 67 61 3 65 48 A ve P.AGH: .ASCII <10>\Message = \ 3 
63 20 77 6F 34 66 20 74 6€ 65 72 72 75 43 1A QOAB9 P.AGI: .ASCII <26>\Current flow control = !SB\ 3 
4 21 20 3D 2 of 6F 72 74 gf 6F Space ; 
20 30 20 65 64 6F 6E 20 65 63 72 7 gf i; i! pads P.AGJ: .ASCII <17>\Source node = !AS\ : 
9 43 41 2] 28 ef os OAE6 P.AGK: .ASCII <6>\ (!AC)\ ; 
20 72 65 64 61 65 68 20 74 65 68 63 61 { oe P.AGL: .ASCII <16>\Packet header = \ : 
69 6€ 6E 69 67 65 62 20 74 65 $8 $3 $} 59 13 poate P.AGM: .ASCII <i9>\Packet beginning = \ : 
73 65 72 64 64 61 20 74 73 65 68 67 69 48 5 OB12 P.AGN: .ASCII <21>\Highest address = !UL\ 3 
4C 55 21 20 3D 20 73 008621 3 
20 3D 20 65 64 6F 4E O07 00B28 P.AGO: .ASCII <7>\Node = \ 3 
20 65 64 6F 6E 20 74 6E 65 63 61 6A 64 | 40 ite P.AGP: .ASCII <16>\Adjacent node = \ : 
20 65 64 6F 6E 20 64 65 74 63 65 70 78 33 {0 ited P.AGQ: .ASCII <16>\Expected node = \ ; 
* $3 41 21 O03 OOBS2 P.AGR: .ASCII <3>\!AS\ z 
29 43 41 21 28 20 06 0O0BS6 P.AGS: .ASCII <6>\ (!AC)\ ; 
43 41 21 03 OQOBSD P.AGT: .ASCII <3>\!AC\ 3 
69 6& 6F 72 68 63 6€ 79 73 20 65 6E€ 69 4C 19 00B61 P.AGU: .ASCII <25>\Line synchronization lost\ : 
74 73 6F 6C 20 SE 6F 69 74 61 7A 00870 : 
43 41 21 03 OOB7B P.AGV: .ASCII <3>\!AC\ é 
73 72 6F 72 72 65 20 61 74 61 44 OB OOB7F P.AGW: .ASCII <11>\Data errors\ : 
43 41 21 03 OOB8B P.AGX: .ASCII <3>\!AC\ ; 
63 61 70 20 64 65 74 63 65 70 78 65 6€ 55 16 OOB8F P.AGY: .ASCII <22>\Unexpected packet type\ 3 
65 70 79 74 20 74 65 6B OOB9E ; 
T 41 ¢] 03 OOBA6 P.AGZ: .ASCII <3>\!AC\ 3 
65 74 61 64 70 75 20 67 $f 69 74 75 6F ¢ 1D OQOBAA P.AHA: .ASCII <29>\Routing update checksum error\ : 
72 6F 72 72 65 20 6D 75 73 68 63 65 68 6 30 00BB9 3 
43 41 21 03 OOBC8 P.AHB: ASCII <3>\!AC\ ; 
20 65 64 6F 6&€ 20 74 6€ 65 63 61 6A 64 41 1C OQOBCC P.AHC: .ASCII <28>\Adjacent node address change\ 3 
65 67 6€ 61 68 63 20 73 73 65 ( 64 64 61 OOBDB ; 
43 41 ¢! 03 OBES P.AHD: .ASCII <3>\!AC\ i ; 
72 20 6€ 6F 69 74 61 63 69 66 69 72 65 56 1C OOBED P.AHE: .ASCII <28>\Verification receive timeout\ : 
74 75 6F 65 6D 69 74 20 65 76 69 65 63 65 Been. ; 
43° 41 4 03 OOCOA P.AHF: .ASCII <3>\!AC\ : : 
77 65 68 73 20 6E€ 6F 69 73 is 65 56 ¢ BRE ge P.AHG: .ASCII <12>\Version skew\ ‘ 
4 41 21 OC1B P.AHH: .ASCII <3>\!AC\ ; 
20 65 64 6F 6E 20 74 6E€ 65 63 61 6A 64 41 22 OOCIF P.AHI: .ASCII \"'Adjacent node address out of ranae\ : 
66 6F 20 74 75 6F 20 73 73 65 ts 64 64 4! it 4 : 
65 67 6E 61 § 0C 3D ; 
43 41 21 9 OC42 P.AHJ: .ASCII <3>\!AC\ , 3 
20 65 64 6F 6E 20 74 6E 65 63 61 6A 64 41 0C46 P.AHK: .ASCII \"‘Adjacent node block size too small\ : 
20 6F 6F 74 20 65 7A 69 73 20 68 63 6F 6C 6 0c5 : 
6C 6¢ 61 $0 7 0C64 ; 
43 41 21 03 QOC69 P.AHL: .ASCII <3>\!AC\ pe : 
69 66 69 72 65 76 20 64 69 6C 61 7 oF 49 =«#O1F bee eAHM: ASCII <31>\Invalid verification seed value\ 3 
6C 61 76 20 64 65 65 73 20 6E€ 6F 6 4 61 $3 c7c ; 
65 7 0C8B 3 
43 41 21 O03 OOCBD P.AHN: .ASCII <3>\!AC\ ; 
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0000" CF 9F PUSHAB  P.AFU ; 
68 11 3 BRB 148$ : 
9000" CF i B 147$:  PUSHAB P.AFX : 
000° cf F F PUSHAB P.AFW : 
; DD ; 148$: PUSHL RS : 
FAD cr : FB 3 CALLS #3, APPEND STRINGS : 
3 4 0 A 1498: CMPL PARAM_TYPE, #3 : 1242 
¢ 12 0053p NEQ  150$ : 
7 ps 53F CLRL sR? : 
7E 9 3¢ 00541 MOVZWL (R9), -(SP) + 1263 
0000v CF i FB 344 CALLS ae F ORMAT_NODEADR : 
0000" cf oF 0845 PUSHAB P.AFY : 
5 DD 0054F PUSHL RS : 
FA71 ff 2 FB bee) CALLS & APPEND_STRINGS 3 
1 A 01 005 ‘ CMPL FIELDS, #1 + 1264. 
13 15 0055 BLEG  150$ : 
07 a2 95 00558 TSTB = 7( PTR) + 1245 
OE 13 0055€ BEQL 150$ ; 
07 Ad 9F 0056 PUSHAB 7 (PTR) + 1246 
0000" cf OF 0056 PUSHAB  P.AFZ ; 
3 pd 00567 PUSHL R3 F 
FAS9 CF 03 FB 00569 CALLS #3, APPEND_STRINGS : 
04 54 01 0056E 150$: CMPL § PARAM_TYPE, #4 > 1247 
Oo 12 00571 BNEQ  151$ : 
57 D4 00573 CLRL = R? ; 
0000" $5 Bb 00879 PuSHL’ RE 
FAG? CF 02 FB 0057B CALLS #2, APPEND_STRINGS : 
05 54 D1 90380 151$: CMPL § PARAM_TYPE> #5 : 1248 
0p 12 0098 BNEQ  152$ : | 
57 04 00585 CLRL sR? : 
0000" $5 8b cosas PUSH. RE 
FA35 CF 02 FB 0038p CALLS #2, APPEND_STRINGS : | 
04 54 01 0992 152$: CMPL  PARAM_TYPE> #4 > 1249. 
28 1F 0059 BLSSU 15 ; 
05 4 D1 00597 CMPL § PARAM_TYPE, #5 : 
¢3 1A 0059, BGTRU 153$ : | 
7 04 0059¢ CLRL oR ; 
7E 69 9A 0059E MOVZBL (R9), -(SP) : 1250. 
0000" He RAL FUBM tt | 
FAIB. CF 3 FB O0S5A7 CALLS Re APPEND_STRINGS : 
03 A D1 005aC CMPL ~=snFIELDS, #3 > 1251 
0& 15 0 SAF BLEG : | 
OA Ad 9F 0581 PUSHAB 10(PTR) + 1252 
0000" $5 bb 00sB8 PysHt, RE pas 
FAOB CF 3 FB OOSBA CALLS Ri APPEND_ STRINGS : 
06 4 01 9 BF 153$: CMPL § PARAM_TYPE, #6 > 1253 
F 12 005C2 BNEG  154$ : 
7 04 005¢4 LRL sR? : 
B BD C6 PUSHL R11 ; 
0000° cf F 005¢ PUSHAB P.AGE ; 
3 pp 005¢c¢ PUSHL RS : 
FOFS OCF 03 FB O05CE CALLS #3, APPEND _STRINGS ; 
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5b 12:38: 


AM_TYPE, #7 


APPEND_STRINGS 
TYPE, #8 


#2, _APPEND_STRINGS 

PARAM_TYPE, #1 

BYTE1, (SP) 

P.AGI 

161$ 

PARAM_TYPE, #2 

160$ 

278$ 

(R9), =(SP) 

#1, FORMAT_NODEADR 

P.AGJ 

APPEND_STRINGS 
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Goes ob8 1 at 7 9}: 3}: 12 DISKSVMSMASTER: ae sec SconsoLe 83251 ° (3) 

0000v cr 93 F 79 CALLS #3, UNKNOWN_PARAM_DATA ; 
1 34 p 165$: CPL PARAM_TYPE, #1 : 1282 

57 CLRL 4 ; 
0000" i BUSHAB P AGM + 1283 

F937 CF 3 FB g CALLS RS APPEND_STRINGS : 
as — 

53 DD PUSHL R : 

O000V CF 9 FB 38 CALLS R UNKNOWN_PARAM_DATA : 
02 34 Y 0 i 166$: CPL PARAM. , h2 : 1285 

9 p 06A CLRL = R? : 

7E 6B 3C 006A4 MOVZWL (R11), =(SP) : 

0000" He Su ate : 

F915 CF 03 FB 006A CALLS Ri APPEND. STRINGS ; 
03 4 D1 00682 167$:  CMPL PARAM_T YPE, #3 : 1286 

op 12 068 BNE ; 

7 D4 00687 CLRL ae : 

cooor $e ob Guees = PUB? gg" : 

F903 —sCF 02 FB O06BF CALLS #2, APPEND_STRINGS ; 
08 54 D1 006C4 168%: CMPL PARAM_TYPE> #8 + 1287 

op 12 006C7 BNEG  169$ ; 

7 D4 006C9 CLRL sR? : 

0000' CF 9F 006CB PUSHAB Ps AGP ; 

53 DD OO6CF PUSHL : 

F8F1 CF 02 FB 00601 CALLS APPEND ~S}RINGS ; 
04 54 01 00606 169$:  CMPL PA Adan #4 : 1288 

Op 12 006D9 BNEQ : 

cow HEARS | lle Fame : 

gf DD 006E1 PUSHL RS : 

FEDF CF 02 FB O6ES CALLS APPEND STRINGS : 
03 4 01 O6E 170$:  CMPL PARAR #3 : 1289 

04 oF OF bdr atthe PARAM TYPE, #4 : 

05 18 6F BLEGU 17 ; 

08 4 D} oF 1718: CPL PARAM_TYPE, #8 ; 

gf p4 06F7 172$:  CLRL ; 
7E 9 3¢ 006F9 MOVZWL (R9) -(SP) : 1290 

0000v CF 1 FB 006FC CALLS FORMAT_NODEADR ; 

0000" FF vor 3 PUSHAB Mg 

DD 007 PUSHL : 

F8B9 =F 3 Fe 7 CALLS : APPEND_STRINGS ; 
01 A : 7 CMPL DS, #1~ : 1291 

‘ 3 7 BLEQ : 
ef} ? 71 TSTB = 7(P TR) : 1292 

OF 13 0071 BEQL 1738 F 
7 Ad $F 0071 PUSHAB 7(PTR) : 1293 

0000" 9¢ 0071B PUSHAB  P.AGS : 

DD O071F PUSHL RS ; 

FBA1 CF FB 00721 CALLS #3, APPEND _STRINGS : 
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STRINGS 
#1 


APPEND_ 
_TYPE; 
APPEND_STRINGS 
_TYPE; 


AM 
AM 
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be ee be MOONS OOK VST se OOD <u 
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OO te te OUND eT OR IOUT OP PICU TPP OOO 
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CF 9F 00875 2058: 


0000' 


ee 
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0028 


te 
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once 


0000" CF 9F 0087 PUSHAB P.AIE ; :] 
; at £0 BRB 210$ 3 : | 
9000 CF OF 206$: PUSHAB P.AIH : ; 
an pu Gia : : 
9000" CF OOF 9 207$: PUSHAB P.AIJ : :] 
, fF F PUSHAB P.AII : : 1] 
2 11 BRB 210$ : 7] 
9000" CF 3 93 208$: PUSHAB P.AIL ; : 1 
' cr F 0089 PUSHAB P.AIK ; : 1 
8 11 00898 BRB 210$ : 31 
Obs: EF OF BORAY cone PUSHAB CAIN | 
: DD a3 2108:  PUSHL RS : 31 
B CF FB OOBA CALLS #3, APPEND _STRINGS : ; 
F71 § E 1 
02 4 p AC 2118: CMPL PARAM_TYPE. #2 + 1329 31 
A A Ni 3 : 
1A 1 E BNEQ 212$ 1 
57 p4 B1 CLRL sR? : 71 
0000° cr F 3 PUSHAB P.AIO + 1330 31 
3 oD 0088 PUSHL R3 : : 1 
F709 «CF 02 FB 00889 CALLS #2, APPEND_STRINGS ; 
0c AC DD BF PUSHL MAXLEN + 1331 
04 AE DD 008C PUSHL  4(SP) : 
0000v CF 83 PB Oace CALLS #3, UNKNOWN_PARAM_DATA 
03 %% =D CB 2128:  CMPL Patan _TYPE, #3 + 1332 
i9 12 008C BNEO ; 
7E 38 BR OoaD mOVIBL re (SP) : 
0000" CF 9F 908D PUSHAB P.AIP’ ; 
DD 008D USHL ; 
FOE? CF 53 FB 3 CALLS ; APPEND. STRINGS 
04 9? D1 OOBEO 213$:  CMPL PA ARAM ry + 1333 
19 12 OO8E BNEQ : 
57 D4 OO8E CLRL ey : 
7E 58 9A OOBE MOV ZBL BYTEI. -(SP) : 
0000' cf 9F OOBEA PUSHAB P.AIQ : 
; DD 008E PUSHL a : 
F6D2 «CF Q FB OO8F CALLS APPEND. STRINGS : 
05 24 D4} i 2148: CPL BA ARAM as + 1334 
3§ pf FA CLRL F 
0000' CE 9F OO8F PUSHAB ; 
DD PUSHL nf : 
F6CO CF FB CALLS # APPEND. STRINGS ; 
03 69 8F CASEB viet : 1339 
0026 001C 001 000 215$: WORD te : 
i : 
* CF 9F 00913 216$: PUSHAB P.AIT : 
itt CF OF 313 PUS PA Als ; 
ic 11 0091B BRB 220$ ; 
9900" CF Hi 1 217$:  PUSHAB B-ALV : 
' CF OF PUSHAB : 
i2 11 3 3 BRB B30$” : 
0000" CF 9F 218$:  PUSHAB P.AIX : 


23 


1 

=1984 01:31:10 VAX ti $-32 3 
WESTIE CULE RARE Ph Ecomae.ase 8° 

000" CF 9F 00928 PUSHAB P,AIW ; 

. 68 1 0092F BRB 2508 : 

' CF 9F 00931 2198: PUSHAB BeAlZ : 

ann) co : 

F FB 009 CALLS # APPEND STRINGS ; 
nan! 66 4 Af 940 221$:  CMPL ARAN + 1340 

109 12 0094 BNE : 

; 4 0094 CLRL ; 

7E 8 9A 0094 MOVZBL BYTE. -(SP) : 

a) oe : 

é CALLS @# APPEND STRINGS : 
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19 12 0096D BNEO ; 

5 ps 96F CLRL ee : 
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F648 CF g FB O097A CALLS #3, APPEND_STRINGS : 
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F634 CF 3 PP tt CALLS Ri APPEND. STRINGS : 
OA % D1 00993 225$:  CMPL pA ARAM #10 > 1344 
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4 pi 009C6 2308: CHPL PARAM_TYPE, #1 : 

: é ¢ BNEQ 2318” : 
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; } 1 at ! ROUTINE unknown_parameter (string, ptr, maxlen): NOVALUE = 
:1 1 i219 — 
THE HE 1 | senent a ustouun porsantnr to 5 stv str 
3 ! end a r H 
1918 12 1; ppen unknown parameter to a given string 
; 1020 14 1 ! Inputs: 
3 1021 1424 1! 
3 + § 1425 1! desc = Address of current string buffer 
3 1 14 $ 1! ptr = Address of parameter (data id, data type, ...) 
; \° ¢ 1? ‘ : : maxlen = Maximum length that the parameter may be 
: 10 $ 1429 1 | Outputs: 
3 10 1450 1! 
: 1028 1431 1! The string is updated. 
3; 1029 14 ¢ 1 leo 
3; 10 14 1 
3; 1031 1434 BEGIN 
3; 10 ¢ 1435 
3 10 1436 MAP 
: 13 : Fr i ptr: REF $BBLOCK; ! Address of parameter data 
: 1036 1439 2 BIND 
: 4 Pre desc = .string: VECTOR; ! Address of string descriptor 
: 54 1326 append('Parameter #!UL = ', .ptr (0,0,11,0)); ! Show parameter type 
: Hp ieee unknown_param_data(desc, .ptr+2, .maylen); ! Append unknown data 
; 1008 1446 1 END; 
-PSECT S$PLIT$,NOWRT,NOEXE,2 
4C 55 21 23 20 72 65 74 65 6D 61 72 61 50 11 01186 P.ALK: .ASCII <17>\Parameter #!UL = \ 3 
20 3D 20 0115 3 
-PSECT S$CODES,NOWRT,2 
0000 00000 UNKNOWN_PARAMETER: 
WORD save nothin 3: 1417 
7E 08 BC 08 00 EF b008 EXTZV #0, #11, @PTR, -(SP) : 1442 
0090° CF SF 00 PUSHAB P.ALK : 
4 AG dD 8 Oc PUSHL STRING $ 
F33D = CF 03 FB QOO0F CALLS #3, APPEND_STRINGS F 
0c AC DOD 00014 PUSH MAXLEN 3 1444 
7E 08 AC 02 C1 00017 ADDL #2, PTR, -(SP) 3 
04 AC 0D OQO0IC PUSHL 3 
0000v CF 03 FB OOO0IF CALLS #3, UNKNOWN_PARAM_DATA ; 
04 00024 RET : 1446 
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ROUTINE unknown_param_data (string, param, maxlen): NOVALUE = 


Append a unknown parameter to a given string. 


i Inputs: 

desc = Address of current a buffer 

param = Address of parameter data type 

maxlen = Maximum Length that the parameter may be 
Outputs: 


The string is updated. 


BEGIN 
BIND 


desc = .string: VECTOR; 
LOCAL 

ptr: 
fields; 
ptr = .param; 


IF .ptr £0,7,1,0) 
AND .ptr (0,6,1,0] 


Address of “tring descriptor 


REF S$BBLOCK, 


Address of parameter data 
Number of fields in parameter 


Point to first data type 


If coded 
and multiple number of fields, 


Get # fields in parameter 


BEGIN 
fields = .ptr (0,0,6,0); 
1 and skip to actual first data item 


tr = .ptr + 1; 
Eup > 


ELSE 


fields = 1; ! Else, indicate only one field 
INCR i FROM 1 TO .fields ! For each field 

BEGIN 

IF .ptr (0,7,1,0] ! If coded 

THEN 
BEGIN 
a j FROM 1 TO .ptr (£0,0,6,0) ! For each byte in coded field 

epgqnet’ se *, ptr C.j,0,8,0)); ! append the hex for that byte 

desc = .desc (0) - 1s; ! Strip off the last blank 
ete = .ptr + 1+ .ptr C0,0,6,0); 

ELSE 
IF .ptr [0.6,1,0) ! If ASCII image field 
THEN 


PRE PUNGE BEE BH ENA IPIIAIPIDINIAA AIUD INIPIPIPIPOPIPOPINPUPIPIPIDYD 3 = = 
o os 
= 


BEGIN 
spenet tAe opt 


r+1); : append the strin 
ptr = .ptr ¢ 2+ CHSRCHAR(.ptr+)); 


! Use ASCIE Length 


bytes = . } ghen truncate to jonguord 
lLongword = r bi -8 Be gpytes.0] ! Extract uns 
yt 0,4,2,0 


gned to longword 
ast CTONEU 


Based on output format, 


nN 1 
CONS $ep-1984 VAX-11 $-32 v4.07 0 ERK 
yon ODD 12: =Sep- 198 9}: 3bi4 DISKS$V nen TER: chvi sae CONSOLE .B32; - a 
110 ELSE 
BEGIN 
rte Ao¥or 
LOCAL b l 4 
pytes = hy ee ‘4 bytes in field 
IF_ .bytes i If zero, 
0 THEN 
1 BEGIN ' then treat as hex image (counted) 
: _ j FROM 1 TO samo ey ! For each byte in field 
1 nye ee PS +1,0,8,0]); ! append the hex for that byte 
tr = .ptr + + -ptr+ 
' t CH ae sts; 
1 ELSE BEGIN 
1 IF .bytes GTRU 4 ! If greater than longword, 
2] HEN 
1 
5 
5 
5 


T 
6): append('!UL',. -Longyord ! Unsigned decimal 
1 : SECEConed 1,0 f ey 11); ! Signed decimal 
CTONEU bytes OF "SET 1 Hexidecimal 
eng? hyB*, senguere’? : byte 
append 'xW", .lon ngwo word 
é OTH oise3: append('! tae Raw ! Longword 


T 
(3): SEL CTONEU .bytes OF SET ' Octal 
1]: appe net igus? fonquerd) by te 
appeng ‘Ow’, - Longwor rd ord , 
C4 0TH oiSe3: append('!OL', gon B Longword 
= = ptr + 1+ .ptre [0,0,4,0); 
END: 


a - .param GTRU .maxlen ! If exceeded maximum allowable Length 


BEGIN 
SIGNAL (msg(badparam) ); ! Signal illegal NICE parameter 
RETURN; 

IF .i LSS .fields ! If not last field, 

THEN 


oo append(' '); ! then delimit fields with a blank 
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7E 01 A442 9A 1 8S: MOVZBL 1(J)CPTRI, -(SP* : 1513 
9 AB 9F PUSHAB P,ALN : 
DD PUSHL Re : 
F29C CF FB CALLS #3, APPEND_STRINGS : 
4 0 INCL J : 
: A Bee Bebe : 
52 02 asi : MOVAB (R5)CPTRI], PTR + 1514 
0084 C 10$: ®BRW 2 ; 1308 
04 ; 01 OOO9F 118: CMPL BYTES, rT} : 151 
1 he BLEGU 12$ : 
53 4 p A OVL #4, $ + 1519 
54 A7 12$ SHL #3, BYTES, _R4 + 1520 
55 67 34 3 O04 EXTZ2V #0, R4, (R7), LONGWORD : 
0 6 3 0B ITS = (PTR), #48 + 1524 
Q 12 0008 BNEQ 13$ : 
5 DD 908 PUSHL LONGWORD : 
OD AB 9F 00087 PUSHAB  P.AL : 
5B 11 OOOBA BRB 20$ : 
01 62 02 04 FD QOOBC 13$:  CMPZV #4, #2, (PTR), #1 + 1525 
OA 12 000C1 BNEQ : 
7E 67 54 00 ge dCs EXTV #0, R4, (R7), -(SP) : 
11 AB SF 000C PUSHAB P.ALP F 
4A 11 000CB BRB ; 
02 62 02 04 FD d0¢d 14$: CMPZV #4, #2, (PTR), #2 + 1526 
if 1 99 D2 BNEQ : 
01 53 D1 00004 CMPL BYTES, #1 + 1527 
07 12 00007 BNEQ ; 
5 DD 00009 PUSHL LONGWORD : 
15 AB OF 90008 PUSHAB P.ALQ : 
37 11 000D BRB 20$ : 
02 53 D1 OO0EO 158: CMPL BYTES, #2 : 1528 
07 12 O00E BNEQ : 
5 DD OE PUSHL LONGWORD : 
19 AB 9F OOOE PUSHAB P.AL : 
eB 11 QOOEA BRB 0$ ; 
DD OOOEC 16$:  PUSHL LONGWORD + 1529 
1D AB 9F OOODEE PUSHAB P.ALS ; 
4 11 000F1 BRB 20$ F 
03 62 02 4 E 0 F3 17$:  CMPZV #4, #2, (PTR), #3 + 1531 
4 F BNEQ ; 
01 3D FA CMPL BYTES, #1 + 1532 
7 12 FD BNEQ 2 
5 pb FF PUSHL LONGWORD ; 
21 = AB 9F 00101 PUSHAB P.ALT : 
11. 11 001 BRB 20$ : 
02 33 p} 106 18$:  CMPL BYTES, #2 : 1533 
2 001 BNEQ 3 
5 pd 1 PUSHL LONGWORD ; 
25 AB OF 001 PUSHAB F 
Q 11 001 BRB ; 
po 112 19$:  PUSHL LONGWORD + 1534 
29 AB 9F 0011 PUSHAB P.ALV ; 
DD 00117 208: § PUSHL Rs ; 
F20E cf FB 00119 CALLS #3, APPEND _STRINGS ; 
: 1 A6 %% 1 gis: HOVAS 1(R6)CPTRI> PTR : 1537 
50 5 8 AC C3 00123 22$:  SUBL3 PARAM, PTR. RO : 1541 


FEDS 


; Routine Size: 


59 


338 bytes, 


oc AC 0 bl 
000000006 F OD 
000000006 00 1 fe 
5A 9 
A 
2D 53 F 
DD 
FIE1 §6CF 6 4 
01 A Ff 
04 


Routine Base: 


SCODES + OF37 


PB A dD tt tb te tt 


AF et tt te 


OO "OW 


if: 


~m 
Ww 
wr 


~m 
= 
wr 


2 
ep- 
ep- 


4 01:31: VAX-11 Bliss-32 V4.0-74 
1383 94:31:18 NR SVNGMASTERSC VL.SRC 

CMP RQ, MAXLEN 

BLEGU 23$ 

PUSH HEVLS BADPARAM 

CALL #1, LIBSSIGNAL 

CMPL FIELDS 

BGEG bs 

PUSHAB P 

PUSHL Rg 

CALLS #2, APPEND_STRINGS 

ACBL FIELDS, #17 1, 3$ 


§consove.32:1°"" «f 


TR TETETETErErErerarare 
—S 
w 
> 
eo 


* 
sf 


AAOCOIMIUIUVIUGWM 


APU ODS ASAE UNIO DO0 WO UW OOo dE 


109 C9 69 09 69 09 SIN NII NINN NINO OOOO 


Sy hal ab eah Ab eAb sb Ab Ab Ab Ab ib Ab Ab ehh Ab Ab Ab Ab sbiabesb esl sbesbesbeubealelesle Sw ww 
UPWNn— 


SaNF 


Oc UPwnto— 


ae ee ee ee ee ee i ee ee 

Se oo wooowovuovovno 109 09 9 09 69 08 SIN NNN NNN SNA AAA AAAAA OMIT 
SSSsS SSSSSSCSS Lee eS SS SRN SS SANS RON SS SIS SFE IS SSVSLTSS 
me me ee ee em ee ee em em em ee eed ed ad = dd = = dd od = SS 8 = 2 


Be Se Se Be Se Be Ge Se Se Se Ge Se Ge Se Ge Fe Se Se Sse Ge Fe Se Ge Fe Ge Fe Ge FF Se Ge Ge Se Fe Se Ge GHGs Ge Ge Se oe Fe Se Se Se Ge Ge Fe S4S4 Se Ge Se Se Se eses 


o 
et 
o 


2 
1b-5¢ 1984 01:31:1 VAX-11 Bliss-32 V4.0-74 Pa 4 
1 30071382 et DLEKSVMGMASTERSCEVL SRCTCONSOLE.B32:1 et 3) 
ROUTINE format_counter (string, param, maxlen): NOVALUE = 


Format a NICE counter and append the 
descriptive text to a given string. 


i 
i 
i 
: Inputs: 

i string = Address of descriptor of existing strin 

: param = Address of longword containing pointer to counter 
maxlen = Maximum Length that the parameter may be 
Outputs: 

i 

i 


param = Address of longword pointing to location following counter 


BEGIN 
BIND 
desc = .string: VECTOR; ! Address of string descriptor 
LOCAL 
ptr: REF S$BBLOCK, ! Address of counter 
type, ' Counter type 
count, ' Actual counter value 
width; ! Width of counter field 
ptr = ..param; ! Get address of counter 
width = 4 * .ptr (0,13,2,0); ! Get the counter width 
IF .ptr C0,12,1,0] ! If bit mapped, 
THEN - 
BEGIN 
count = .ptr (4,0,.width,0]; ! Get unsigned counter 
gperen = .ptr +4 + .width/8; ! Update next position 
BEG! 
count = .ptr (2,0,.width,0]; ! Get unsigned counter 
sporea = .ptr + 2 + .width/8; ! Update next position 
append("!10UL ‘,.count); ! Append the count value 
type = .ptr (0,0,11,0); ! Get counter type 
INCRA ptr FROM known_counters BY 6 ' Scan known event table 
BEGIN 
MAP ptr: REF S$BBLOCK; 
a aad EQL 0 ! If end of table, 


BEGIN 
append('Unknown counter type !UL',.type); 


vou=000 fo $eoct 9B Mbi3kide  DISKSUMEMASTERSEEVL SRCScONSOLE.832:5°%° «fs 


: } 19 18h, nae ! then exit with failure 
: 101 1 if IF . type EQLU .ptr (0,0,16,0) ! If known counter, 
> 121 1614 THEN 
ae OE Be 
:4 1g 1819 4 textbuf: VECTOR R £128. /BYTE], |! Message text buffer 
3; 121 1918 & vEC "Message ext descriptor 
: : 18 19}? : bons ef} s 1 1285 Buf ! Setup descriptor 
; \ y c 18 ; 2 ScETmSGmsciD = = “Bir C2,0,32,0], ! Get message text 
:1 P 1 4 MSGLEN = ¢ t 
;% : 1624 4 FLAGS RA ! without any prefixing 
: 1224 1625 4 setts text); 
: 1225 1626 4 
3 1226 1627 
: 1207 1628 END; 
: 1228 1629 
: 1229 1630 1 END: 
-PSECT $PLIT$,NOWRT,NOEXE,2 
20 20 4c $5 30 31 2} 07 01187 P.ALX: .ASCII <7>\!10UL \ : 
65 74 6E€ 75 6F 63 ¢0 of 44 of gf $8 $F 3 18 ote P.ALY: .ASCII <24>\Unknown counter type !UL\ : 
53 41 $f bg OT 1A P.ALZ: .ASCII <3>\!AS\ : 
.PSECT S$CODES$,NOWRT,2 
000C 00000 FORMAT_COUNTER: 
~" WORD Saye e R2,R3 : 1554 
5 FF78 CE 3 0000 MOVAB -136(SP5, SP ; 
52 08 BC DO 0000 MOVL  aP TR + 1583 
50 62 6 Op ai 00 EXTZ2V #13, #2, (PTR), WIDTH : 1585 
5 4 0 8 01 ASHL we #4, WIDTH ; 
51 20 : C7 00014 DIVL3 #8, WIDTH. RI : 1591 
1 CO 00018 ADDL2 : 
0D 2 CE 1B BBC We. 1$ : 1587 
53 04 A2 0 FF 1F EXTZv #0 yibTH "4(PTR), COUNT ; 1390 
08 aC 06 Al 9 3 HOVAB 4(R1), @PARAM 2 1391 
53 02 A2 50 8B F 1$: EXTZV. #0, WIDTH, 2(PTR), COUNT : 1595 
0 Bt oz AY BE GRRE "Bova 2h), ara i 1386 
0090" CF OOF 9 PUS Sari : 
4 AC OD PUSHL STRING ; 
F195 CF os FB 0004 CAL #3, APPEND STRINGS : 
53 62 EF EXT2V #11, (PIR), TYPE + 1601 
0000" CF A MOVAB KNOWN_COUNTERS. R2 ; 1603 
s : F 3$ iste (PTR) ; 160 
DD a PUSHL TYPE > 1610 


vO4=008 ise Soa18Re PSi3kiL8 PERE UwBmaSteRsceuc sheSconsove.e32:1°%° «85 


0000' PUSHAB P.ALY 


53 62 10 i 4$: enPzV & #16, (PTR), TYPE 


«fe 
S 


0000° 
04 


rTbUr “TEXTS 


R) 
SYSSGETMSG 


LZ 
5$: PUSHL ING 
r carts #3, APPEND_STRINGS 
it D 6$: ADDL2 #6, PTR 
0090 BRB 3$ 


NS—mow 
csoorsz 
wn 
= 
® 


000000006 00 


i a) 


ii 
E 
E 
i 
5 
P 
t 


v 
c 
77) 
x 
- 
NV BVA 


x 
i 
Xx 
PTR 
A 
RIN 


Wo *MUTOMmM—mnmmoon 


FIGE 8=CF 
52 


NOD 09709 00~0.0—m—0 
OF DO OBO ™OMPVO-™n 
Be Ve Se Ge Fe Ge Se Ge Be Ge Se Fe Se Se Se Se Se Be 


DS OFOUO?F SF POPOrVronon 
oo 


; Routine Size: 146 bytes, Routine Base: S$CODES + 1089 


H 2 
is . : e < ERI 
1orgeen18Be Pb:3h tg We sbwBhAS ERs ceOC sReSconsoue.e32:1°%" «$5 


GLOBAL ROUTINE format_nodeadr(address) = 


Fe 
sr 


— 


Ww 


This routine formats a 16-bit node address into an 
formatted ASCII string of the form <area>.<node>. 
: = Ra number is zero, then the area portion 


address = 16-bit node address 
Outputs: 
Routine = Address of descriptor of string describing address 


Since the string & descriptor is stored in OWN storage, it must 
be copied immediately after returning (with a standard routine 
such as “‘append’'). 


desc: FAO result string descriptor 


Sots onion bn ab aruieee 
UN —O OOBNOVUESWN “SO OONOULS WHO 0M 


desc Setup descriptor for FAO 


£0} = 40; 
desc C1] = string; 
IF address <10,6,0> EQL 0 
SFAO(ZASCID ‘!UL', 
esc, desc 
waddress <6,10,0>) 
SFAO(ZASCID ‘!UL.!UL', 
address <10,6,0> 
ro et <P 
RETURN desc; 


If area = 0, 


WN $9 OONAUES WN HO OONAUES WN SO OONAOULS Win 


AAO 


Format only node 


ar 
v 
FESS S SSE SRRARRRANAAL ERE EE AE FRI 


Format area and node 


See 
g 


vv0v 
ee a ee a ee ae ee a ee a a a ee a ed ae a ad ad ad ed 


Bete Se Se Ge Ge Ge Ge Ge Se Se Fe Ge Fe Se Se Se Ge Ge Se Ge Ge Ge Ge Se Se Ge FF Ge SF Se Se Se Se SeSeSe Sse Se Se teSeseese 
Pa a a et a tt 4 od Wd 8 Ls i Sh st it 4 3 tt tk a tt 
“ 
-—o 


ROPOPOPIPIPOPONPINININIPYNO PEN No forfnory 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
OWN 
string: VECTOR $59 Sve). ! Formatted node address string 
VECTOR (2); 


Seceee 
MEWN—O0Oan 


-PSECT SPLITS,NOWRT,NOEXE ,2 


00 4c 55 21 11A¢ P.AMB: .ASCII \sUL \<0> 
bogp00 ps tere “hMtess'b Ha 
00 4C 55 21 2€ 4C 1188 P.AMD: -ASCII iu sh \<0> 
01 £00 7 O11C0 P.AMC: <LONG 176947 
0° 0114 “ADDRESS P.AMD 


7E 


7E 
7E 


3; Routine Size: 


04 AC 
046 AC 
05 ac 


75 bytes, 


vonage og 
i 
me MES 
OA : EF 
dD 
pp 
Dots @ 
i 6 
OA 00 EF 
06 53 cf 
acd | 
50 62 9E 
04 


Routine Base: S$CODE$S + 111B 


SOoOSOOOOOCOOSOOOSOOSOOOoOSoOo 


SOOoooooooooooooooooocoo 


SOoOOOoooooooooooooooo 


he 


Pd ed ed 
BS UMIO DO MBvVS 


Et et tt eo 
FPNLOMOE 


Sep-1 
Sep-1 


— 
bad 
o 


~™ 
dl 


9B 12:38:48 


«PSECT 


-BLKB 
»BLKB 


-EXTRN 
«PSECT 
-ENTRY 
MOVAB 


SOWNS ,NOEXE ,2 


40 
8 


SYSS$FAO 
SCODES ,NOWRT ,2 


FORMAT one ADR, Save R2,R3 


DESC, at 


DESC 
STRING DESC+4 
ADDRESS+1, #252 


VAX-11 Bliss-32 V 
DISKSVMSMASTER: ct Hie 


» #10, ADDRESS, -(SP) 


R 
P.AMA 
#4, SYSSFAO 


» #10, ADDRESS 
, #6, ADDRESS+ 


P.AMC 
#5, SYSSFAO 
DESC, RO 


{, 


-(SP 
-(S 


) 
P) 


OSRCICONSOLE. B32; i 


Pete Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Se 


wo 


1671 


ERI 


2 
CONS 18-Sep-1984 01:31:10 VAX#11 BLiss-32 v4.0-76 p 9 
Goes 0bD raseea obs PS Sb Ly Peek steele sees consoue.032:4°8 18s 


; 1277 1676 1 END 
1346 183$ 0 ELUDOM 
eEXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
SPLITS 4552 NOVEC, oun « RD ,NOEXE,NOSHR, LCL, REL, CON lear tone ) 
SCODES 4454 wove © NOWR RD , EXE,NOSHR, LCL, REL, CON,NOPIC.ALIGN(2) 
48 NOVEC, URT? RD ,NOEXE,NOSHR, LCL, REL, CON, NOPIC ALIGN( ) 
Library Statistics 
ecoccoce Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-8255$DUA28: id Ng LE L3 6 581 00:01.1 
“$255$DUA28: E3h HRLIBINMALIBRY. isi 387 1¢2 8 47 00:00.7 
_9255$DUA28: CEVL. sesNevecer. tks 13 1 62 15 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:CONSOLE/OBJ=0BJ$:CONSOLE MSRC$:CONSOLE/UPDATE=(ENHS$: CONSOLE) 


: ay 4454 1°98, + 4600 data bytes 
clessed’ Tine: 3 oD 
Lines/CPU M 10 
Lerenes/CPU-Rin: 3866 


1 ages 
ott Reg Complet te ° 


ft 


AL EQUIPMENT CORPORATION 


- 
IDENTIAL AND PROPRIETARY. 


I 
= 


DIG 
CON 


Boiss ores 


NT CORPORATION 
D PROPRIETARY 


D= 
iS a IT) 


os 


015 AH-BT1i3A-SE DIGI 
VAX/VMS V4.0 CONF 


